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具 客 浊 要 


本 书 主要 讲述 BASIC 语言 程序 设计 以 及 如 何在 中 华 学 习 志 上 上 使 
用 BASIC。 全 书 共 分 十 四 章 ， 前 八 章 介 绍 了 中 华 学 习 机 上 浮 点 BAS 
IC 和 中 文 BASIC 的 基本 语句 ， 分 支 程序 、 循 环 程序 和 子 程序 的 设 
计 ， 第 九 、 十 章 介 绍 了 绘图 和 音响 程序 的 设计 。 最 后 四 章 对 BASIC 语 
言 的 应 用 做 了 进一步 的 介绍 。 每 章 都 配 有 一 定量 的 习题 ， 并 附 习题 解 
答 ， 供 读者 学 习 使 用 。 
读者 对 象 : 青少年 ， 中 学 生 ， 中 华 学 习 机 的 广大 用 户 。 


中 华 学 习 抽 BASIC 语 言及 其 编程 技巧 


罗 景 文 刘 洪 斌 ” 编 
责任 编辑 ” 徐 云 脱 
家 
电子 工业 已 版 社 出 版 〈 北 京 海淀 区 万 老路 ) 
新 华 书 店 北京 发 行 所 发 行 各 地 新 华 书 店 经 售 
通 县 张 家 湾 印刷 厂 印 刷 ， 
业 
开本 : 787x 1092 毫 米 1/32 印张 ，11。5 搬 页 :1 字数 ，247 千 字 
1988 年 5 月 第 一 版 1989 年 8 月 第 二 次 印刷 
印 数 ，15001 一 30000 册 定价 ，3.。50 元 
竺 一 书号 ，I1SBN7-5053-0149-7/TN.73 


编 写 说 明 


邓小平 同志 指出 : “计算 机 的 普及 要 从 娃娃 抓 起 ”。 这 
是 一 个 战略 决策 ， 是 在 全 中 华 民 族 范围 内 开展 计算 机 文化 教 
襄 、 提 高 中 华 民 族 文化 素质 的 重要 部 署 。 她 必 将 为 我 国 国民 
经 济 领域 的 腾飞 ， 促 进 整 个 社会 的 进步 和 发 展 产生 深远 的 影 
响 。 因 此 中 华 学 习 机 的 生产 以 及 在 全 国 范围 内 的 推广 应 用 ， 
是 造福 子孙 后 代 的 一 件 伟大 事业 。 

中 华 学 习 机 是 在 吸取 了 国外 流行 的 各 种 八 位 微型 计算 机 
的 特点 和 优点 ， 结 合 我 国 国情 自行 设计 、 自 行 生产 的 优选 机 
种 。 她 既 具 备 了 与 国内 外 十 分 流行 的 APPLE 系 列 机 种 兼容 
并 具有 汉字 处 理 能 力 ; 又 有 价格 低廉 、 易 于 推广 的 特点 ， 很 
适合 中 、 小 学 在 校 学 生 开发 智力 、 训 练 思 维 、 进 行 计算 机 辅 
助教 学 ， 使 他 们 得 到 一 个 不 知 疲倦 、 说 详 教导 的 良 师 和 闲 眼 
之 时 的 娱乐 伙伴 。 

当前 ， 世 界 上 许多 发 达 国 家 的 计算 机 教育 已 从 高 等 院 校 
转向 普通 教育 、 中 小 学 教育 以 及 家 庭 ， 计 算 机 已 逐步 形成 普 
及 的 趋势 。 可 以 断言 ， 中 华 学 习 机 在 我 国 的 普及 ， 必 将 使 我 
国 亿 万 中 小 学 生 打 下 坚实 的 计算 机 基础 知识 ， 掌 担 信息 时 代 
最 有 力 的 工具 ， 从 而 为 我 国 在 二 十 世纪 开始 的 全 方位 腾飞 ， 
造就 一 大 批 科技 人 才 。 

中 国 计 算 机 技术 服务 公司 全 国 技术 培训 网 ， 为 了 配合 中 
华 学 习 机 的 推广 应 用 ， 专 门 聘 请 了 设计 单位 的 主要 技术 负责 
人 、 组 织 生产 的 主要 负责 人 、 技 术 培 训 网 上 的 优秀 教员 及 有 
关 单位 的 专家 ， 组 成 了 中 华 学 习 机 系列 培训 教材 编审 委员 会 
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编写 适合 中 华 学 习 机 使 用 的 各 类 培训 教材 ， 其 中 包括 基础 
类 、 语 言 类 、 计 算 机 辅助 教学 类 、 开 发 工具 类 、 维 修 类 以 及 
应 用 软件 类 等 。 这 些 教材 编写 的 特点 是 讲求 深入 浅 出 〈 利 于 
非 计算 机 专业 人 员 、 青 少年 学 习 ) 、 讲求 实用 〈 学 后 可 以 马 
上 解决 问题 ) 。 第 一 批 中 华 学 习 机 系列 培训 教材 共有 八 本 ， 
将 由 玫 家 出 版 社 出 版 。 
编 委 员 会 名 单 : 
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第 一 章 “BASIC 语言 
的 基本 概念 


本 章 首先 介绍 计算 机 语言 的 基本 概念 和 中 华 学 习 机 
BASIC 的 特点 ， 然 后 着 重 介绍 在 BASIC 语言 中 使 用 的 常数 、 
变量 、 函 数 和 表达 式 的 概念 及 有 关 规 定 ， 这 些 规定 要 象 记忆 
英文 单词 和 语法 那样 牢 牢记 住 ， 今 后 才能 在 程序 中 正确 而 灵 
活 地 使 用 它们 。 


第 一 节 ”计算 机 语言 


一 、 计 算 机 语言 的 种 类 

我 们 都 知道 人 类 有 各 种 语言 ， 汉语、 英语 、 俄 语 、 日 
语 等 等 。 人 类 在 进行 学 术 和 思想 交流 时 ， 都 要 使 用 共同 的 语 
伴 

我 们 要 使 用 计算 机 ， 就 要 和 计算 机 交换 信息 。 到 目前 为 
止 ， 还 没有 制造 出 能 够 完全 “ 听 慌 ”人 类 语言 的 计算 机 ， 而 
只 能 由 计算 机 专家 设计 一 个 大 程序 事先 放 和 人 计算 机 内 ， 使 计 
算 机 能 够 识别 某 些 特定 符号 ， 这 些 特 定 符号 的 特定 组 合 就 构 
成 了 机 器 和 人 都 能 接受 的 计算 机 语言 。 我 们 就 是 通过 这 种 语 
言 向 计算 机 下 达 命 令 来 指挥 它 完成 各 项 任务 。 

目前 ， 世 界 上 虽然 有 几 百 种 计算 机 语言 ， 但 都 不 外 乎 以 
下 四 类 ， 

1。 机 器 语言 


2。 汇 编 语言 

3。 高 级 语言 

4。 自 然 语言 ，. 

机 器 语言 是 者 搂 支 扎 计算 机 行动 的 机 器 指令 的 集合 
器 指令 是 由 一 5 
由 计算 机 的 硬件 决定 的 ， 所 以 不 同 的 计算 机 的 机 器 指令 是 不 
同 的 ， 也 就 是 说 ， 不 同 的 计算 机 具有 完全 不 同 的 机 器 语言 。 
机 器 语言 不 但 通用 性 能 差 ， 而 且 难 学 、 难 记 、 难 掌握 ， 但 是 
运算 速度 快 。 

为 了 便于 学 习 和 运用 机 器 语言 ， 研 究 计算 机 的 专家 们 就 
用 英文 助 记 符 来 代 起 二 进 制 代码 的 机 器 指令 ， 这 就 发 展 成 为 
汇编 语言 。 英 文 助 记 符 比 二 进 制 代码 要 好 学 ， 也 便于 记忆 ， 
但 是 计算 机 不 认识 它 ， 所 以 必须 由 计算 机 专家 编制 一 个 充当 
“解说 员 ” 的 程序 常 驻 在 计算 机 中 ， 把 输入 的 汇编 语言 逐条 
“解释 ”给 计算 机 ， 将 汇编 助 记 符 翻 译 成 机 器 指令 。 由 此 可 
见 ， 汇 编 语言 本 质 上 和 机 器 语言 是 相同 的 ， 只 不 过 英文 助 记 
符 ， 比 “0 ”和 “1 ?构成 的 机 器 指令 好 学 而 已 。 

高 级 语言 是 由 特定 的 英文 单词 和 数学 符号 组 成 的 ， 它 一 
般 保留 了 英文 单词 的 原意 和 数学 表达 式 的 基本 形式 。 世 界 上 
流行 有 数 百 种 高 级 语言 ， 党 用 的 有 以 下 几 种 ， 

1。BASIC 一 一 初学 计算 机 的 入 门 语言 

2。FORTRAN 一 用 于 科学 计算 语言 

3。PASCAL ”一 常用 于 系统 程序 设计 

4。COBOL ”一 用 于 商业 数据 处 理 语 言 

5。LOGO ”一 是 一 种 计算 机 辅助 教学 语言 

任何 高 级 语言 都 要 通过 一 个 “翻译 ”才能 转换 为 机 器 能 
执行 的 机 器 语言 。 有 一 种 “翻译 ”是 一 名 一 句 翻译 并 让 机 器 
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质 生 的。 我 们 起 这 种 “翻译 2. 称 为 “解释 程序 ”, 见 图 1-1。 
解 杰 程序 
高 级 语言 源 程序 上 一 胡 频 一 执行 结 果 | 
贺 1-1 解释 程序 作用 示意 图 


给 BASIC 语 言 配 的 翻译 就 是 这 种 解释 程序 。 另 一 种 “ 翻 
译 ” 它 是 把 你 写 的 程序 〈 叫 做 源 程序 ) 整 段 地 翻译 成 机 器 语 
言 〈 叫 做 目标 程序 ) ， 然 后 再 执行 机 器 语言 程序 ， 我 们 把 这 
种 翻译 称 为 “编译 程序 ” 〈 见 图 1-2) 。 


编译 程序 


| aa 


-| 1- 最 从 -| mms | 
图 1-2 ”编译 程序 作用 示意 图 


“编译 程序 ”和 “解释 程序 ”都 是 由 计算 机 专家 编制 的 
一 个 很 长 的 程序 ， 这 个 大 程序 有 的 固化 在 机 器 里 ， 有 的 由 于 
它 太 长 就 记录 在 磁盘 或 磁带 上 ， 在 送 入 源 程序 之 前 再 把 它 送 
入 机 器 里 。 我 们 平时 所 说 某 个 机 器 具有 什么 语言 就 是 指 那个 
机 器 配备 有 这 种 语言 的 翻译 程序 。 

中 华 学习 机 随身 携带 着 BASIC 和 LOGO 两 种 语言 的 “ 翻 
译 ?， 它 们 被 生产 厂家 固化 在 主机 板 上 的 只 读 存 贮 器 (ROMD) 
中 。 

二 、 用 高 级 语言 解 题 的 其 本 步 又 

不 管 计算 机 解决 什么 问题 ， 它 都 是 去 摸 拟人 的 大 脑 功能 
来 对 信息 进行 处 理 ， 而 信息 处 理 的 本 质 上 是 个 数学 问题 。 因 
此 ， 不 论 用 计算 机 解决 什么 实际 问题 ， 首 先 都 要 用 我 们 所 学 
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的 知识 把 这 些 问题 用 数学 形式 表达 出 来 现代 数学 不 但 能 用 
公式 和 函数 撕 途 连续 变量 ， 而 且 能 描述 离散 变量 ) ， 这 就 是 
所 说 的 “数学 模型 > 。 

有 了 “数学 模型 ”， 就 可 以 着 手 编制 程序 了 ， 用 程序 来 
告诉 计算 机 先 做 什么 ， 后 做 什么 。 为 了 使 程序 编写 的 正确 、 
清晰 ， 首 先 要 画 出 程序 流程 图 ， 并 且 反复 检查 无 误 后 再 编写 
程序 。 程 序 编 好 后 ， 也 要 反复 检查 修改 ， 把 错误 尽量 减少 ， 
因为 在 也 器 上 修改 错误 比 在 纸 上 修改 错误 要 麻烦 得 多 。 

编制 的 程序 叫 源 程序 。 源 程序 写 好 后 ， 就 可 以 送 入 计算 
机 ， 计 算 机 用 “翻译 程序 ”或 “解释 程序 ”对 源 程序 进行 检 
查 并 翻译 成 目标 程序， 如 果 你 的 程序 有 语法 或 其 他 错误 ， 
计算 机 会 告诉 你 。 你 就 可 以 根据 提示 修改 错误 并 完善 程序 ， 
直到 能 算出 结果 。 同 时 ， 还 要 根据 实际 情况 判断 结果 是 否 正 
确 ， 如 果 结 果 不 合 情理 ， 就 要 检查 你 的 程序 是 否 有 逻辑 上 的 
错误 ， 甚 至 要 检查 你 归纳 的 数学 模型 是 否 有 错误 ， 往 往 要 经 
过 若干 次 反复 修改 ， 才 能 得 到 正确 结果 。 这 个 过 程 就 是 调试 
程序 的 过 程 。 


1 编译 程序 
;解释 程序 


图 1-38 用 计算 机 解 题 过 程 示意 图 
用 计算 机 解 题 的 过 程 如 图 1-3 所 示 。 编 制 程序 是 这 个 


过 程 中 最 重要 的 环节 。 本 书 所 讲 的 就 是 怎样 夯 出 流程 图 和 用 
中 华 学 习 机 的 BASIC 来 编制 程序 ， 以 及 如 何在 中 华 学 习 机 上 
调试 程序 。 

三 、 什 么 样 的 程序 是 个 好 程序 

以 后 我 们 会 看 到 ， 对 于 同一 个 问题 ， 可 以 设计 出 各 式 各 
样 的 程序 ， 那 么 ， 什 么 样 的 程序 才 算是 好 程序 呢 ? 

程序 的 好 坏 在 不 同 的 场合 有 不 同 的 要 求 ， 但 是 不 管 怎 
样 ， 程 序 的 正确 性 都 是 第 一 位 的 。 在 程序 正确 的 前 提 下 ， 程 
序 在 执行 过 程 中 占用 存 贮 器 的 多 少 ， 运 算 速 度 的 快慢 ， 以 及 
程序 的 结构 、 通 用 性 和 易 读 性 ， 都 是 衡量 程序 优 劣 的 标 
准 。 

如 果 能 编写 出 占 存 贮 量 少 、 运 算 速度 快 、 通 用 性 好 ， 而 
且 结 构 清晰 、 便 于 阅读 的 程序 ， 那 当然 很 好 ， 但 是 在 实际 
中 ， 它 们 往往 是 互相 矛盾 的 。 比 如 高 级 语言 正 是 牺 和 性 了 存 贮 
空间 换 得 了 它 的 通用 性 。 一 般 来 说 ， 用 于 数据 处 理 的 程序 往 
往 要 考虑 如 何 合理 地 组 织 数据 才能 占用 较 少 的 存 贮 空间 ， 用 
于 实时 控制 的 程序 则 往往 要 考虑 运算 速度 。 
“， 随 着 计算 机 的 发 展 ， 计 算 机 的 存 贮 量 不 断 增 大 ， 运 算 速 
度 不 断 提 高 ， 因 此 越 来 越 多 的 是 考虑 程序 的 结构 清晰 、 便 于 
阅读 、 修 改 和 扩充 ， 并 且 提 出 了 结构 化 程序 设计 的 思想 。 

结 均 化 程序 设计 也 就 是 使 程序 模块 化 。 它 就 象 现 代 建筑 
高 楼 那样 ， 不 是 一 块 一 块 砖 地 砌 ， 而 是 制 成 一 个 个 预制 件 ， 
再 把 它们 拼 搭 成 楼 房 。 同 样 道 理 ， 我 们 也 可 以 编制 出 一 个 个 
具有 某 种 特定 功能 的 程序 段 ， 再 组 合成 完整 的 程序 .< 现在 世 
界 上 已 先后 设计 出 多 种 结构 化 程序 设计 语言 , 比如 PASCAL， 
FORTRAN77 等 等 。BASIC 语言 虽然 不 是 结构 化 程序 设计 
语言 ， 但 是 有 些 语 名 具有 这 一 性 质 ， 比 如 ， 开 关 语句 、 自 定 
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义 函 数 、 子 程序 等 等 。 在 学 习 使 用 BASIC 语 言 进行 程序 设计 
时 ， 要 尽量 按照 模块 化 程序 设计 思想 来 设计 程序 ， 这 样 做 不 
但 能 设计 出 结构 清晰 的 程序 ， 并 且 对 于 今后 更 深入 地 学 习 程 
序 设计 、 适 应 当代 程序 设计 的 要 求 是 十 分 必要 的 。 


第 二 节 中华 学 习 机 
BASIC 的 特点 


BASIC 是 Beginner's All-purpose Symbolic 
Instruction Code 的 缩写 ， 意 思 是 初学 者 通用 符号 指令 代 
码 。 目 前 的 微机 上 几乎 都 配 有 这 种 语言 ， 在 世界 上 较为 普 


及 。 

BASIC 语言 的 语句 和 命令 用 英语 单词 书写 ， 并 且 保 留 
单词 的 原意 。 运 算 符 号 和 表达 式 也 和 数学 中 的 用 法 相 类 似 。 
它 不 仅 能 进行 数值 计算 ， 也 能 进行 非 数 值 运 算 ， 应 用 比较 广 
泛 。 

BASIC 语 言 是 一 种 会 话 式 语 言 ， 也 就 是 说 可 以 进行 人 机 
对 话 。BASIC 提 供 两 种 执行 方式 ， 一 种 是 立即 执行 方式 ， 可 
以 从 键盘 上 直接 进行 某 些 简单 计算 或 执行 一 些 语句 。 另 一 种 
是 间接 执行 方式 ， 把 编 好 的 程序 送 入 计算 机 后 ， 机 器 能 自动 
地 检查 程序 中 的 句法 错误 以 及 在 程序 执行 中 的 错误 ， 并 在 屏 
语 上 显示 出 错误 信息 ， 根 据 给 出 的 出 错 信息 可 以 很 方便 地 修 
改 程序 。 而 且 在 程序 中 适当 的 地 方 写 上 某 些 特 定 的 语句 ， 当 
计算 机 执行 这 些 语句 时 ， 可 以 按 你 的 要 求 输出 一 些 信息 ， 中 
途 停 下 来 ， 等 待 你 送 入 数据 或 者 让 你 检查 某 些 变量 的 变化 情 
况 等 等 , 所 以 对 用 BASIC 语 言 写 的 程序 进行 调试 是 很 方便 的 。 

6 


中 华 学 习 机 BASIC 除 了 有 具 备 上 述 一 般 BASIC 的 特点 外 ， 
还 有 它 自 己 的 特点 : 

一 、 艺 数 BASIC 和 实数 BASIC 

中 华 学 习 机 象 APPLE- 开 型 机 一 样 ， 具 有 两 种 BASIC 语 
言 ， 整数 BASIC 和 实数 BASIC (实数 BASIC 也 称 做 浮 点 
BASIC， 在 APPLE-I 型 机 上 了 叫 Applesoft BASIC) 。 这 
两 种 BASIC 大 多 数 语句 的 功能 相似 ， 但 也 有 一 些 差 别 。 例 
如 ， 整 数 BASIC 只 能 处 理 一 定 范围 的 整数 ， 而 实数 BASIC 能 
处 理 实数 ,处理 数 的 范围 也 大 得 多 ,整数 BASIC 在 送 入 程序 时 
能 自动 增加 行 号 ， 实 数 BASIC 却 没有 这 项 功能 。 整 数 BASIC 
适用 于 游戏 和 画图 ， 实 数 BASIC 适 用 于 科学 计算 及 财物 、 人 

中 华 学 习 机 实数 BASIC 的 解释 程序 固化 在 机 器 上 ， 而 整 
数 BASIC 的 解 译 程序 则 记录 在 磁盘 上 。 在 这 本 书 中 主要 介绍 
实数 BASIC〈 后 面 简称 BASIC 或 西 文 BASIC) 。 

二 、 中 文 BASIC 和 西 文 BASIC 

在 这 所 说 的 西 文 BASIC 是 相对 于 中 文 BASIC 而 言 。 中 
文 BASIC 所 用 的 语句 、 命 令 ， 不 论 是 书写 格式 还 是 实际 功 
能 几乎 和 整数 BASIC 和 实数 BASIC 一 样 〈 只 有 个 别 语 名 中 
文 BASIC 不 能 使 用 ) ， 只 是 在 进行 字符 串 操 作 和 注释 时 ， 
可 以 使 用 汉字 。 

-中 华 学 习 机 的 内 存 ROM 中 国 化 了 汉字 管理 程序 和 汉 
字库 ， 采 用 的 是 国家 标准 一 级 和 二 级 汉字 字库 ( 见 附 录 四 )， 
总 共 是 6763 个 汉字 和 外 文字 符 。 输 入 汉字 可 采用 全 拼音 输入 
和 区 位 码 输 入 两 种 方式 〈 见 第 二 章 第 四 节 ) 。 

三 、 具 有 彩色 绘图 和 音响 功能 

中 华 学 习 机 BASIC 提 供 了 彩色 绘图 和 音乐 语句 ， 可 以 很 
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方便 地 编制 绘图 程序 和 音响 程序 ， 它 还 配 有 游戏 控制 器 ， 能 
够 进行 各 种 游戏 。 


第 三 节 ”BAsIC 程序 的 基本 结构 


使 用 任何 一 种 语言 来 表达 思想 都 有 一 定 的 书写 规则 。 比 
如 ， 写 信 就 有 一 定 的 格式 ， 写 报告 也 有 一 定格 式 ， 用 中 文 写 
信和 用 英文 写 信 就 有 不 同 的 格式 。 同 样 ， 用 BASIC 语 言 来 表 
达 你 的 “思想 ”也 要 按 一 定 的 规则 进行 书写 。 我 们 应 当 遵循 
哪些 规则 来 书写 BASIC 程 序 呢 ? 我 们 先 看 一 个 小 例子 ， 

明明 的 考试 成 绩 是 ， 数 学 97、 语 文 99、 外 语 96， 求 平均 
分 是 多 少 ? 

把 这 个 问题 写成 下 面 的 BASIC 程 序 ， 


5 。 REN C81361 

19 LET A=97 

26 LET 8B-90 

30 LET C-96 
49 LET De=(A+B4C)73， 
56 PRINT.D 

68 END 


这 个 程序 很 容易 看 懂 :; 首先 把 数学 、 语 文 、 和 外 语 的 分 
数 送 给 三 个 变量 A、B 和 C ， 然 后 求 出 三 门 课 的 平均 分 送 给 
变量 D， 最 后 把 D 中 的 结果 输出 出 来 就 停止 运行 了 。 

从 这 个 小 小 的 程序 中 ， 我 们 可 以 看 出 一 个 BASIC 程序 
应 具有 以 下 结构 : 
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1。 一 个 BASIC 程 序 由 若干 语句 行 (也 叫 程 序 行 ) 组 成 ， 
上 述 程 序 由 6 个 语句 行 构 成 (REM 为 注释 行 不 是 语句 ) 。 

2。 一 个 语句 行 由 行 号 开头 , 由 行 号 和 语句 两 部 分 构成 ， 

(1 ) 上 面 程 序 中 每 个 语句 行 前 面 标的 10、20、30 等 等 
就 是 行 号 〈 也 岂 标 号 ) 。 它 必须 是 无 符号 的 十 进 制 整 数 ， 行 号 
的 取 值 范围 因 机 器 而 异 , 中 华 学 习 机 是 0~63999。 行 号 的 作 
用 是 使 计算 机 能 按 行 号 从 小 到 大 的 顺序 执行 程序 。 行 号 不 必 
连续 ， 中 间 常 常 留 有 间隔 。 上 面 程序 行 号 间隔 为 10， 其 目的 
是 便于 以 后 对 程序 进行 修改 时 增加 程序 行 。 

(2 ) 每 个 语句 行 的 标号 后 面 是 语句 ， 语 名 由 语句 定义 
符 和 语句 体 组 成 。 

上 述 例子 中 的 LET、PRINT、ENPD 就 是 语句 定义 符 ， 
通常 把 它们 叫做 保留 字 ， 它 们 是 由 语言 本 身 规 定 的 ,BASIC 
解释 程序 能 识别 它们 , 从 而 使 计算 机 知道 应 该 执 什 行 么 功能 
语句 定义 符 不 能 自己 创造 ， 只 能 严格 地 遵照 它 的 规定 使 用 。 

语句 定义 符 后 面 就 是 语句 体 。 有 些 语 句 〈 如 END) 后 面 
没有 语句 体 。 语 句 体 告诉 机 器 具体 执行 什么 内 容 。 

3。 语 句 行 的 书写 格式 如 下 ， 

(1 ) 一 个 程序 行 可 以 书写 多 个 语句 。 同 一 行 的 语 名 之 
间 用 冒号 (: ) 分 曲 ， 比 如 上 述 程序 也 可 以 写成 如 下 形式 : 

5 FEH C91302 
16 LET A=97: LET B=96: LET _Cz=96 
20 LET D=(A+B+C)/3 


30 PRINT 0 
40 END 


]RUN 
34,9333334 
而 一 个 语句 只 能 写 在 一 个 语句 行 中 ， 不 能 写 在 两 个 语句 
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行 里 。 
《2 ) 一 个 语句 行 景 多 可 以 输入 239 个 裤 符 ， 其 中 包括 
行 号 和 输入 的 空格 。 


第 四 节 常量、 变量、 函数 和 表达 式 


语句 体 一 般 都 是 由 常量 、 变 量 、 运 算 符 、 标 准 函 数 和 表 
达 式 构成 的 。 

一 、 常 是 

程序 执行 过 程 中 数 信 保持 不 变 的 量 叫 做 常量 ， 比 如 上 面 
程序 中 的 97、94、96、 3 都 是 常量 ， 沼 量 又 分 三 类 ， 

1。 整 常量 ， 程 序 中 使 用 的 整 常数 范围 必须 在 - 32767 到 
+32767。 超 出 这 个 范围 ， 称 为 “溢出 ”， 机 器 就 给 出 错 误 
信息 。 

2。 实 常量 ; 程序 中 使 用 的 实数 范围 必须 是 在- 10” 到 
1038。 超 出 这 个 范围 也 称 为 “溢出 > ， 给 出 错误 信息 。 绝 
对 值 小 于 3 x 10-?” 的 数 ， 作 为 零 处 理 。 

3。 字 符 串 常量 ， 用 双 引 号 括 起 来 的 一 串 字 符 叫 做 字 符 
吊 常 量 ， 例 如 : “How do you do12 ，“XY27 、%423452 ， 
42X+5y=237》”，“2 Tai Zhong Hua Ji” 等 等 都 是 字符 
串 常量 ， 字 符 串 最 多 允许 255 个 字符 。 没 有 字符 的 字符 串 ”” 
中 室 串 。 双 引号 是 字符 串 的 定 界 符 ， 它 不 能 用 在 字符 串 中 。 
中 文 BASIC 可 使 用 中 文字 符 串 常量 ， 如 “中 华 学 习 机 ”， 
4 她 是 三 好 学 生 ? 4100 分 2 ， 4WELCOME 一 欢迎 ”。 

二 、 变 缠 

程序 进行 过 程 中 数值 能 改变 的 量 叫 做 变量 ， 如 上 面 程序 
中 的 A、B 、C 、D 都 是 变量 。 
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程序 中 的 变量 用 变量 名 表示 。 你 可 以 给 变量 起 至 多 238 
个 字符 的 名 子 ， 但 是 因为 每 个 变量 名 只 在 内 存 中 分 配 两 个 字 
符 的 位 置 ， 所 以 只 有 前 面 的 两 个 字符 才 有 效 ， 例 如 AL 和 Al2 
是 一 样 的 ，AP 和 APPLE 也 是 一 样 的 。 变 量 名 的 第 一 个 字符 
必须 是 英文 字 且 ， 后 面 可 以 是 英文 字母 也 可 以 是 数字 。 特 别 
要 记 住 象 LET、PRINT、END 等 等 保留 字 不 能 做 为 变量 
名 。 

变量 也 象 常量 那样 分 为 三 类 :， 整 型 变量 、 实 型 变量 、 字 
符 串 变 量 。 

1。 整 型 变量 ， 变 量 名 后 面 加 尾 符 %， 表 示 该 变量 为 整 
型 变量 ， 它 只 能 取 - 32767 到 + 32767 的 整数 值 ， 超 出 范围 就 
做 为 溢出 处 理 。 如 A%、 玫 2% 等 都 是 整 慌 变 量 。 

2。 实 型 变量 ， 变 量 名 后 面 没有 任何 尾 符 ， 表 示 该 变 量 
为 实 型 变量 ， 它 所 取得 的 实数 和 上 述 实 常数 的 规定 相同 。 如 
A， 开 2 就 是 实 型 变量 。 

3。 字 符 串 型 变量 :变量 名 后 面 加 尾 符 串 ， 表 示 该 变 量 
是 字符 串 变 量 ， 它 所 取得 的 字符 串 和 上 述 字符 串 的 规定 相 
同 。 如 AS$、 开 23$ 就 是 字符 串 型 变量 。 

变量 名 实际 上 是 数据 〈 包 括 整数 、 实 数 、 字 符 串 》 的 地 
址 标记 ， 就 象 我 们 的 门牌 号 码 一 样 。 特 别 要 记 住 ， 一 个 变量 
在 程序 运行 的 任何 时 刻 都 有 确定 的 值 ， 而 一 旦 它 取 得 了 新 值 
以 后 ， 原 来 的 值 就 丢失 了 。 

三 、 标 准 函 数 ， 

这 里 函数 的 几 念 和 数学 中 国 数 的 概念 是 一 样 的 ， 那 就 是 
当 我 们 给 定 一 个 自 变 量 的 值 ， 就 可 以 得 到 相应 的 函数 值 。 所 
谓 标准 国 数 ， 就 是 指 那些 能 被 BASIC 解释 程序 直接 识别 和 
运算 出 结果 的 函数 ， 因 为 它们 的 计算 程序 是 高 级 语言 炙 译 自 


了 了 


带 的 ， 所 以 通常 也 把 它们 叫 内 部 函数 。 你 只 要 给 出 函数 名 和 
自 变量 〈 也 叫 参 数 ) 值 ， 它 就 可 以 自动 计算 出 函数 值 。 
这 类 函数 分 为 三 种 :算术 运算 函数 、 字 符 串 处 理 函 数 和 


类 型 转换 函数 : 
1。 算 数 运算 函数 
算术 运算 函数 共有 11 个 〈 见 表 1-1) 。 
表 1-1 
标准 函数 | 功 馆 各 注 ， 
SIN (X) | ”给 出 X 的 正 怠 值 |。 自 变量 X 取 红 度 人 
CoS (X) | ”给 出 X 的 余 骇 值 “| ， 自 变 重 X 取 红 度 人 


自 变 量 允 取 弧 度 值 。 当 愉 接 近 于 趟 /2 
(或 工 /2 的 麻 数 倍 》 时 ， 这 个 函数 的 结果 


TAN (XI) 给 出 和 的 正切 值 


可 能 超过 机 器 允许 人 的 范围 而 溢出 。 
ATN (X) | ”给 出 的 反正 切 值 | ， 函 数值 的 单位 为 弧度 ， 在 一 交 /2 和 丈 /2 
之 癌 。 
LOG (X) | 。 求 X 的 自然 对 数 。 | 。X 应 为 正 


EXP (X) | 给 出 ex 的 值 e 一 2.71828… 

ABS (X) | ”给 出 和 的 绝对 人 | 

SQR 〈X) | 。 给 出 的 平方 根 值 | 。X 不 得 为 负 

INT (X) | 如 INT(-8.6) 一 一 9，INT(8.6)= 8 
大 整数 


SGN (X) T ( 当 x> 0 时 ) 
SGN(X) 一 | 0 (〈 当 x= 一 0 时 ) 
一 (〈( 当 x<0 时 ) 


符号 函数 


给 出 大 于 、 等 于 0 而 | 六 
小 于 1 的 一 个 随机 郴 数 


RND (XJ) 
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可 以 看 出 ， 绝 大 多 数 算术 函数 和 我 们 在 数学 中 学 过 的 没 
什么 两 样 ， 就 不 一 一 解释 了 ， 只 做 如 下 几 点 说 明 ， 
(1 ) 三 角 函 数 (SIN(CX)，COSCX)，TANCX) ) 中 
的 自 变量 必须 取 绝 度 值 ,如 ,sin30" 要 写成 SIN(3。14159/6 ) 、 
或 SIN(0.5236)， 而 不 能 写成 SIN(30)， 也 不 能 写成 SIN 
(zx/6)， 因 为 BASIC 解 释 程 序 不 认识 r。 
(2 ) 反 三 角 函 数 ATN(X) 所 得 到 的 结果 是 弧度 值 ， 要 
得 到 角度 还 要 乘 上 180/3 .14159。 
(8 )INT(X) 给 出 最 邻近 X 而 又 不 大 于 X 的 最 大 整数 
值 。 意 思 就 是 说 ， 若 X 盖 0 ， 就 直接 售 去 小 数 ， 若 X<0 ， 则 
含 去 小 数位 后 再 减 1 。 比 如 ， INT(3.7) = 8 ，INT (0.9) 
=0，INT(-2.2)=- 3。 
要 特别 注意 INT(X) 函 数 不 能 进行 四 含 五 人 ， 要 人 为 地 
加 上 一 个 修正 值 , 才 可 使 它 四 含 五 和 人。 例如 :INT(3.7+0.5 ) 
结果 就 是 4，INT (-2.2+0.5) 结 果 为 =-2， 而 INT(2.2 
+0.5) 为 83，INT(-2.7+0.5) 结 果 为 - 3。 
(4 ) 符号 函数 SGN(X) 只 有 - 1，0，1 三 个 值 ， 用 
它们 分 别 表 示 X 是 负 、0 、 正 数 。 
(5 ) 随机 函数 RND(X) 产 生 一 个 随机 数 ， 随 机 数 的 生 
成 方式 和 X 的 值 有 关 : 
X> 0 ， 每 使 用 一 次 随机 函数 ， 不 管 X 值 是 否 相 同 ， 都 
产生 互 不 相等 的 新 随机 数 。 
X= 0:， 得 到 前 面 最 后 一 次 使 用 随机 函数 时 生成 的 那 个 
随机 数 。 
X< 0 :产生 和 X 一 一 对 应 的 随机 数 ， 也 就 是 说， 车 X 
取 相 同 值 ， 生 成 的 随机 数 也 相同 ， 若 X 值 不 等 ， 生 成 的 随 机 
数 也 不 等 。 
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不 管 X 取 什么 值 ， 所 得 的 随机 数 的 大 小 都 是 在 0 一 0.999 
999999 之 间 的 正 小 数 。 随 机 函 数 主要 来 进行 数据 模拟 ， 以 后 
我 们 将 要 举 列 说 明 。 

2。 字 符 串 处 理 角 数 

我 们 已 经 知道 什么 叫 字 符 串 常量 和 字符 串 变 量 。 一 个 字 
符 串 所 包含 的 字符 个 数 叫 字符 串 长 度 。 一 个 字符 串 中 的 一 个 
或 多 个 相 邻 字符 电 该 字符 串 的 子 串 。 为 了 便于 对 字符 串 进 行 
处 理 , BASIC 语 言 中 提供 了 4 个 字符 串 处 理 函 数 (我 们 以 字符 
串 变量 A3$ 为 例 来 加 以 说 明 ， 假 定 A$ 中 有 字符 串 “This is 
ZHONG HUA XUE XIJI” ) : 

(1 LEN(AS$):， 这 个 函数 用 于 求 字符 串 长 度 ， 即 字 
符 串 中 字符 的 个 数 。 它 的 结果 是 一 个 0 ~ 255 之 间 的 正 整 数 
〈 因为 一 个 字符 串 不 能 多 于 255 个 字符 ) 比如 ，LEN(A$) 的 
函数 值 等 于 27，LEN(“3X+y=? ”) 结 果 等 于 6，LEN 
(“ 中 华 学 习 机 ” ) 结果 等 于 15， 也 就 是 说 中 文 一 个 字 长 度 
为 3 。 同 理 LEN (“ 这 是 中 华 学 习 机 。” ) 长 度 为 22，. 7 个 
中 文字 长 21， 一 个 标点 占 一 个 字符 长 ， 所 以 共 为 22。 

(2)LEFT$(CAS$3，n) :这 个 函数 用 于 取 字 符 些 的 
左 子 串 (最 左边 的 nm 个 字符 》，AS$ 是 被 处 理 的 母 串 ，a 是 子 
串 长 度 (1 和 na<255 ) 。 其 函数 值 是 长 产 为 an 的 字符 串 。 如 
LEEFTS$(AS$，4 ) 结果 为 《This”，LEFTS$(“ 中 华 学 
习 机 ”， 6 ) 结果 为 “中 华 ? 

(3)RIGHTS$(CAS$，n ) : 这 个 国 数 用 于 取 字 符 串 的 
右 子 吕 (最 右边 的 a 个 字符 ) ，AS$ 是 被 处 理 的 母 串 ，n 是 子 
串 长 度 ( 工 入 n<255 ) 。 因 数 值 是 长 度 为 aa 的 字符 吕 。 如 
RIGHTS$(AS$，9 ) 结 果 为 “XUE XI JI2 ，RIGHTS$ 
(“83xX+y=?2”，1 ) 就 得 到 “? ”, 若 834 中 内 容 是 
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“优秀 团员 王 明 ”， 则 RIGHTS (B$, 6 ) 就 得 到 子 串 “ 王 
衣 2 全 

(4 )MID$(AS$，n，m ) : 这 个 函数 取 字 符 串 中 间 
部 分 的 子囊 ，A$ 是 被 处 理 的 且 串 ，n 是 从 有 母 串 中 摘 取 子 串 的 
第 一 个 字符 位 置 ，mm 是 子 串 长 度 。 若 省 略 m， 则 搞 取 从 n 开 始 
直到 母 串 景 右 端 的 字符 构 成 的 子 串 ， 其 中 n 和 mm 的 取 值 范围 
是 ， 1 和 n<255、1 委 m<255， 若 n 大 于 有 母 串 长 度 ， 则 返回 
一 空 串 。 

例如 MID3$3 (A$，9，9 ) 结果 为 “ZHONG HUA”， 
而 MID4 (B$，7，6 ) 结果 为 “团员 ”， 而 MID$(B$,7) 
结果 为 “团员 王 明 ”。 

3。 类 型 转换 函数 

我 们 前 面 所 介绍 的 整 型 常量 和 整 型 变量 ， 实 型 常量 和 实 
型 变量 都 叫 数值 型 变量 ， 整 型 量 本 身 就 是 实 型 量 ， 而 实 型 量 
只 要 是 在 整 型 量 范围 内 ， 那 么 舍 去 小 数 就 是 整 型 量 ， 比 如 ， 
整数 51 变 成 实 型 量 就 是 5s1.0， 而 13 .7 变 成 整 型 量 就 是 13 ( 注 
意 不 四 仿 人 五 ) 。 整 型 量 和 实 型 量 之 间 可 以 直接 转换 。 

而 字符 串 常量 和 变量 是 非 数 值 型 变量 ， 它 和 数值 型 变量 
之 间 不 能 直接 转换 ，BASIC 语 言 提 供 了 4 个 类 型 转换 函数 ; 

(1T)STRS$ (数值 型 量 ) ， 这 个 函 数 把 数 值 型 量 转换 
成 字符 串 。 例 如 ，STR$ (135 ) 的 结果 是 字符 串 “1352， 
结果 “1352 没有 一 百 三 十 五 的 意思 ， 而 只 是 字符 荆 、83 和 
5 ， 这 就 把 数值 135 变 成 了 字符 串 135。 

(2 )VYAL 字符 串 量 ) :这 个 函数 把 字符 串 型 量 转换 
成 数值 型 量 。 若 字符 串 是 数字 字符 ， 则 函数 信 就 是 由 这 些 数 
字 组 成 的 数值 ， 如 YAL ( “280” ) 把 字符 串 “2 8 072” 转 
换 成 数值 280。 若 字符 串 量 的 第 一 个 字符 不 是 数字 ， 则 函数 
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值 等 于 0 ， 比 如 ， VAL (“X12” ) 的 值 就 为 0 。 若 字符 圳 
量 前 面 是 数字 字符 ， 后 面 是 非 数值 的 字符 ， 则 把 第 一 个 非 数 
值 型 字符 前 面 的 数值 型 子 串 转换 成 数值 型 量 , 如 YAL(“28.5 
kg” ) 的 函数 值 为 28.5。 在 这 个 函数 中 ， 要 求 自 变量 的 字 
串 长 入 255， 而 转换 成 的 数值 必须 在 10-3~ 1038， 否 则 将 发 

(3 )CHRS (数值 型 量 ) ， 这 个 函数 把 自 变量 的 数值 
作为 ASCII 码 转换 成 相应 的 字符 。 ( ASCII 码 是 American 
Standard Code for Infomation Interchange( 美 国信 
息 交 换 标 准 代码 ) 的 缩写 ， 见 附录 二 ) 。 自 变量 值 必 须 在 
0~255 之 间 。 例 如 ，CHRS$(69 ) 结果 为 E，CHRS$ (55 结 
果 为 字符 7 。 

(4 )ASC (字符 串 量 ) ， 这 个 函数 把 字符 串 量 中 的 第 
一 个 字符 转换 成 相对 应 的 ASCII 码 ，(〈 用 十 进 制 表 示 ) 如 ， 
ASC(“ABC”) 的 函数 值 为 66，ASC (“13M2” ) 的 值 
为 49。 

上 述 三 类 函数 都 可 以 直接 写 函 数 名 并 在 圆 括号 中 给 出 自 
变量 而 进行 调 有 用， 函数 名 一 定 要 用 大 写字 母 。 

四 、 运 算 符 和 表达 式 

把 数据 类 型 相同 的 常量 、 变 量 和 函数 用 规定 的 运算 符 连 
接 起 来 就 构成 表达 式 。BASIC 语 言 中 运算 符 和 表达 式 共 分 为 
四 种 ， 

1 。 算 术 运 算 符 和 算术 表达 式 
算术 运算 等 有 以 下 五 个 : 

+ 加 号 ”- 减 号 * 乘 号 / 除 号 入 乘 方 

单个 数值 型 常量 、 变 量 和 函数 ， 以 及 用 上 述 五 个 和 运算 符 
把 它们 连接 起 来 ， 都 可 称 为 算术 表达 式 。 算 述 表 达 式 的 运算 
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顺序 和 我 们 数学 中 所 学 的 一 样 ， 而 且 可 以 用 括号 改变 运算 符 
的 运算 顺序 ， 只 是 在 BASIC 语 言 中 只 能 使 用 ( 。 ) ， 不 能 使 
用 [ ] 和 { }。 其 运算 顺序 是 ， 

(1 ) 先 做 括号 内 的 ， 若 多 层 括号 则 从 内 向 外 。 

(2 ) 不 记 括号 内 外 ， 都 是 先 做 函数 ， 再 做 乘 方 ， 然 后 
做 乘 、 除 ， 最 后 做 加 、 减 ， 这 叫做 运算 优先 级 。 

〈 3 ) 同一 级 运算 中 是 从 左 到 右 。 

在 书写 运算 式 时 要 特别 注意 严格 按 上 述 规定 书写 ， 特 别 
是 运算 符 不 能 使 用 数字 中 的 x ，+ ， 和 分 数 线 ， 也 不 能 用 右 
上 和 角 的 小 数字 表示 乘 方 。 如 a 乘 以 b， 不 能 写成 a。b， 也 不 能 


写成 bb，ax ba 除 以 pb， 不 能 写成 6+b， 一 5 ，a 的 立方 不 
能 写成 >， 而 要 分 别 写成 Gx b，a/b，a 人 5。 例 如 : 
5Q 十 防 2 
DCc-d 7 要 写成 
(5 关 A+ 了 ANA2)/(CBx(Cc-d)) 
初学 时 很 容易 丢掉 应 有 的 括号 ， 比 如 上 例 中 常会 写成 


( 5xA+BA2)/B#《〈(c-d) ， 这 个 式 子 相当 于 -52 
。(c-d) 。 显 然 是 错误 的 。 避 免 这 种 错误 的 方法 就 是 按 运 
算 顺 序 用 眼睛 “扫描 ”一 下 你 写 的 表达 式 ， 看 它 是 否 附 合 原 
数学 式 的 运算 顺序 。 

在 运算 中 ， 凡 是 标准 函数 有 的 , 要 直接 调用 函数。 例如: 
w685+cd2 不 要 写成 (axDp 人 2+cxd 人 2) 关 0.5 而 直接 写 
SQR (ax 人 DpAN 人 2+CxdAN 人 2) ， es 要 写成 EXP( 了 ) 不 要 写成 
2.718289 人 B。 
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2。 字 符 串 运算 符 和 字符 串 表达 式 
字符 串 运 算 符 只 有 一 个 : 
二 连接 〈 即 把 两 个 字 串 连接 成 一 个 字符 串 》 
例如 :， “3x2> + “27=? 2 结果 是 “3x+2y7=? ? 
《这 是 2 +“5 台 ”+“ 中 华 学 习 机 ”结果 是 “这 是 
5 台中 华 学 习 机 ”。 
3。 关 夭 运 算 符 和 关系 表达 式 


关系 运算 符 共 6 个 : 
所 等 于 相当 于 数学 的 = 
> = 或 => 。 大 于 等 于 ”相当 于 数学 的 
人 > 大 于 相当 于 数学 的 > 
<< 小 于 相当 于 数学 的 < 


<<= 或 = 人 ”小 于 等 于 ”相当 于 数学 的 乏 
必 > 或 < 不 等 于 相当 于 数学 的 雪 
关系 表达 式 是 比较 关系 运算 符 左 右 两 边 同 类 型 量 的 关 
系 ， 若 这 种 关系 成 立 ， 则 结果 为 真 (用 数字 1 表示 ) ， 若 
这 种 关系 不 成 立 ， 则 结果 为 假 ( 用 数字 0 表示 )》， 这 种 
“ 真 ” 与 “ 假 ” 称 为 逻辑 值 。 关 系 表达 式 的 值 是 一 个 远 辑 
值 。 
例如 : 
20< 5 关系 不 成 立 ”有 辑 值 为 0 
3#<6>> =A 若 A 芝 18 成 立  ” 遇 辑 值 为 
当 A>18 不 成立 ”逻辑 条 为 0 
SQR (10)= 4 关系 不 成 立 ”有 辑 慎 为 0 
上 述 几 个 关系 式 两 边 都 是 数值 型 量 ， 若 是 字符 型 量 则 是 
通过 对 两 个 字符 串 从 左 到 右 依 次 比较 对 应 字符 的 ASCII 码 来 
进行 的 。 首 先 比较 两 个 字符 串 的 第 一 个 字符 的 ASCII 码 ， 若 
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不 等 ， 则 ASCII 码 大 的 字符 串 大 ， 若 相等 ， 再 比较 两 个 字 符 
串 的 第 二 个 字符 的 ASCII 码 ， 若 不 等 ， 则 ASCII 码 大 的 字符 
串 大 ， 若 相等 再 比较 两 个 字符 串 的 第 三 个 字符 ， 依 此 类 推 。 
由 此 可 见 ， 字 符 串 的 大 小 不 取决 于 它们 的 长 度 ， 而 是 取决 于 
两 个 字符 串 中 第 一 个 不 相等 的 字符 的 ASCII 码 的 大 小 。 例 如 
“ABCDEERG? 就 小 于 "BE”。 在 进行 字符 串 比 较 时 ， 空 格 也 
算 在 内 , 特别 要 注意 “ABC 呈 ” 和 “ABC” 是 不 等 的 。 

如 果 使 用 中 文 BASIC， 则 两 个 汉字 字符 串 比 较 的 是 每 个 
汉字 的 编码 〈 见 附录 四 》， 汉 字 编 码 大 的 汉字 大 于 编码 小 的 
汉字 。 常 用 的 汉字 编码 大 小 排列 和 拼音 字符 排列 是 一 至 

例如 : 
“数学 ”之 “物理 ? 关系 不 成 立 ”过 每 值 为 0 
“ 李 明 ” 之 “ 李 玲 ” 关系 成 立 ” 逻 竹 值 为 1 
“ 王 平 ” >>“ 陈 小 红 ” ”关系 成 立 ”逻辑 值 为 工 
4。 逻 辑 运 算 符 和 逻辑 表达 式 


逻辑 运算 符 共 三 个 : 
NOT 非 
AND 与 
OR 或 
窜 1-2 
A B NOT B AAspa | AoRa 


四 上 j 口上 
H 加 驯 忆 
FF ha FF 加 
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用 逻辑 运算 符 连 接 具 有 逻辑 值 的 表达 式 ， 构 成 逻辑 表达 
式 ， 逻 辑 表达 式 的 运算 结果 是 0 或 硅 的 逻辑 值 。 设 A、B 为 
逻辑 量 ， 其 运算 结果 如 表 1-2。 

从 上 表 中 可 以 看 出 : 

NOT: 求 一 个 逻辑 量 的 相反 值 。 

AND:， 两 个 逻辑 量 都 是 真 结果 才 为 真 ， 只 要 一 个 不 是 
真 就 为 假 。 

OR， 两 个 逻辑 量 中 有 一 个 为 真 就 为 真 ， 都 不 为 真 时 才 
为 假 。 


例如 ，5 =3 AND 2x38=6 结果 为 假 (0) 
假 (0) 真 (1》 
SQR (0.25)<0 OOR “AB?<“CD?” 结 果 为 真 (1) 
假 (9) 真 (1) 
NOT“ 李 明 ”=“ 王 平 ” 结果 为 真 (1) 
假 (0》 


如 果 逮 辑 表达 式 中 有 多 个 逻辑 运算 符 ， 其 运算 烦 序 是 
NOT、AND、OR。 并 且 可 以 用 圆 括号 来 改变 其 运算 顺序 ， 
例如 ; 

NOT(4=2 0OR 3=-3) 


这 人 全 工 结果 为 1 
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上 面 两 个 例子 也 说 明了 各 种 表达 式 的 运算 顺序 是 先进 行 
算术 运算 ， 再 进行 关系 运算 ， 最 后 进行 逮 辑 运算 。 同 级 运算 
自 左 至 右 进行 ， 圆 括号 可 以 改变 它们 的 运算 顺序 。 
例如 : 

BxSIN(C10+3)=AORCANDNOT D 


OA 


正确 地 书写 表达 式 ， 是 学 习 BASIC 语 言 的 关键 之 一 。 如 
果 你 写 的 表达 式 不 能 正确 的 表示 各 种 运算 顺序 ， 则 BASIC 语 
言 的 解释 程序 往往 查 不 出 错误 ， 而 使 你 得 到 一 个 自 认 为 正 确 
的 错误 结果 。 


习 题 一 


1。 计 算 机 是 怎样 解 题 的 ? 

2， 在 BASIC 程 序 中 行 号 的 作用 是 什么 ? 

3。 在 BASIC 语 言 中 ， 常 量 和 变量 分 为 几 种 类 型 ? 如 何 
表示 ? 

4。 随 机 函数 RND(X)， 当 X> 0，X= 0，X<0 时 生 
成 的 随机 数 有 什么 不 同 ? 

5。 设 A$ 为 “ZHE wwSHIL ZHONGDHUAXUEL， 
XI，JI”( 这 是 中 华 学 习 机 ) ， 下 列 函 数 得 什么 结 
果 ? 

(1)LEN(CAS$) (4)MID$(AS$,， 9，9) 

(2)LEFTS$(A$, 7) (5)ASC(A$) 

(383)RIGHTS$($,9) 

6。 用 BASIC 表 达 式 表示 下 列 代数 式 
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(1 ) G 十 已 -8+v 环 一 405 


ee (5 ) 一 一 7 
(3 (6)w50TSR 
3 ，AR: Sitz254 
本 人 )20858657817475 
| xz 一 多 | (2Sim45")4 
《入 ) 一 355 2 (8 ) 5 


7。 写 出 下 列表 达 式 中 运算 符号 执行 顺序 

(1)AxA+3x#(XXY/B) 

(2)A-BA4/(A+B+C) 

(3)A-B<0 AND NOT3 

(4)B-SIN(25+5) <20 OR C-CQS(25)>= 0 

(5 )A$="“THIS”AND BS$ =“TI$2? 十 “2 

《6) (AS$ = 4 中国? OR AS$= 《中华 2”) AND B$ 
= “北京 7” 


第 二 童 ” 中 华 学 习 机 BASIC 的 操作 


这 章 首 先 介绍 中 华 学 习 机 系统 的 基本 组 成， 然后 介绍 
中 、 西 文 BASIC 的 操作 ， 以 便 青少年 朋友 们 在 开始 学 习 BA 
SIC 基 本 语句 时 ， 就 能 随时 上 机 操作 。 


第 一 他 ”中华 学 习 机 的 系统 组 成 


中 华 学 习 机 的 最 小 系统 由 带 有 键盘 的 主机 和 绿色 显示 器 
(也 可 以 使 用 家 用 彩色 或 黑白 电视 机 ) 组 成 。 只 要 有 了 这 两 
个 主要 部 件 ， 就 可 以 进行 BASIC 的 操作 了 。 如 果 想 扩大 系统 
功能 ， 还 可 以 根据 需要 和 经 济 情况 配置 例 式 磁带 、 九 针 点 阵 
打印 机 、 软 盘 系 统 、 游 戏 操纵 杆 。 如 图 2- 1。 

中 华 学 习 机 的 主机 装配 在 键盘 的 下 面 。 它 是 由 各 种 集成 
电路 块 组 合成 的 。 任 何 一 个 计算 机 的 主 机 都 包括 运算 器 、 
控制 器 、 内 存 喧 器 和 输入 输出 设备 的 接口 。 如 图 2-2 所 
丰 。 

1。 运 算 器 的 主要 切 能 是 进行 算术 运算 、 远 辑 运 算 及 其 
它 数据 处 理 。 控 制 器 则 象 人 的 大 脑 指挥 人 的 各 个 器 官 那样 ， 
指挥 着 计算 机 的 各 个 部 件 协调 地 进行 工作 。 控 制 器 的 主要 部 
件 和 运算 器 放 在 一 块 大 规模 集成 电路 上 ， 叫 做 CPU(Centr 
al Processing Unit) ， 即 中 央 处 理 器 。 中 华 学 习 机 使 用 的 
CPU 是 6502 微 处 理 器 。 

2。 内 在 贮 器 相当 于 人 脑 的 记录 部 分 ， 用 于 存放 原始 数 
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软盘 驱动 器 


图 2-2 主机 结构 示意 图 


据 , 加 工程 序 和 处 理 结果 。 存 贮 器 分 为 许多 单元 来 存 贮 数据 。 

每 个 单元 有 一 个 地 址 ， 计 算 机 按照 地 址 存 放 和 提取 数 
据 。 每 个 存 贮 单元 里 的 数据 不 论 被 读 取 多 少 次 ， 存 贮 单元 里 
的 信息 都 不 会 改变 ， 但 是 只 要 向 存 贮 单元 写 人 数据 ， 则 该 音 
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元 原 有 的 信息 就 委 失 了 。 微 型 计算 机 的 内 存 贮 器 有 两 部 分 ， 
一 部 分 电 RAM (Rondom Access Memory) ， 即 随 机 存 
取 存 贮 器 ， 用 户 可 以 随时 向 它 的 每 个 单元 写 和 数据， 也 可 以 
随时 读 取 数据 。 用 户 的 程序 和 处 理 的 数据 ， 以 及 结果 ， 都 存 
放 在 RAM 中 。 中 华 学 习 机 有 64K 字 节 〈 每 个 字 节 包 括 8 个 
二 进 制 位 B,~Bu) 的 RAM。 另 一 部 分 叫 ROM(Read 一 On- 
ly Memory) ， 即 只 读 存 贮 器 ， 这 种 存 贮 器 中 的 内 容 ， 
只 能 被 读 取 使 用 ， 而 不 能 向 它 写 入 任 何 数据， 不 管 什么 时 
候 ， 只 要 一 接 通电 源 ， 它 里 面 的 信息 就 自动 建立 起 来 。 这 类 
存 贮 器 主要 用 于 存放 系统 程序 。 比 如 ， 中 华 学 习 机 有 32 开 
ROM, 上 面 固化 了 协调 各 部 分 工作 的 监控 程序 , BASIC 语 言 
的 解释 程序 和 Logo 子 集 , 此 外 还 有 固化 了 汉字 字库 和 汉字 管 
理 程序 的 ROM。 

3。 输 ,入 输出 接口 用 于 连接 输入 输出 设 备 和 计算 机 主 
机 ， 它 的 主要 功能 是 实现 外 设 和 计算 机 内 部 之 间 的 数据 转换 
和 对 外 部 设备 进行 控制 。 外 设 的 种 类 不 同 ， 接 口 也 不 同 ， 每 
种 外 部 设备 都 是 通过 输入 输出 接口 和 计算 机 的 主机 连接 的 。 


接 220vy 电 源 


机 
接 打印 机 接 磁盘 驱动 器 


图 2-3 中华 学 习 机 主机 机 座 连 线 图 
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输入 输出 接口 是 由 集成 电路 块 和 其 它 电 子 器 件 组 成 的 。 从 输 
入 设备 要 通过 接口 把 信息 送 入 存 贮 器 ， 信 息 处 理 的 结果 写 
入 存 贮 器 后 也 要 通过 接口 送 到 输出 设备 上 。“ 中 华 学 习 机 ? 
的 每 个 接口 用 电缆 线 连 接 到 主机 沉 的 插座 上 (键盘 直接 通过 
电缆 和 接口 相连 ) 。 如 图 2-3 所 示 。 


第 二 节 ”显示 器 和 键盘 


键盘 和 显示 器 是 计算 机 最 基本 的 输入 输出 设备 。 是 进行 
人 机 对 话 的 主要 工具 之 一 。 键 盘 已 国定 在 主机 板 上 ， 只 要 把 
显示 器 和 主机 相连 ， 就 组 成 了 中 华 学 习 机 的 最 小 系统 。 

一 、 显 示 器 

中 华 学 习 机 的 显示 器 可 以 使 用 PAL-D 人 制式 的 家 用 彩色 
或 黑白 电视 机 ， 也 可 以 使 用 PAL-D 制 式 的 单 色 或 彩色 监视 
器 。 

如 果 要 使 用 家 用 电视 机 作为 显示 器 时 ， 把 主机 沉 后 的 显 
示 器 插 孔 〈 见 图 2 - 3 ) 用 视频 电缆 线 与 电视 机 天 线 输入 插 
座 相 连 。 电 视 机 应 使 用 3 频道 。 如 果 使 用 监视 器 作为 显示 器 
时 ， 把 主机 壳 后 的 显示 器 插 孔 通过 视频 电缆 线 与 监视 器 的 输 
入 端 (VIDEO) 相连 。 

主机 壳 后 面 连接 显示 器 的 插座 通过 显示 器 的 接口 和 主机 
连接 。 显 示 器 接口 的 作用 是 将 计算 机 村 输出 的 数据 转换 为 显 
示 器 可 以 接收 的 视频 信号 送 到 显示 器 上 ， 这 样 ， 我 们 才能 在 
显示 器 上 看 到 输出 的 信息 ， 从 而 了 解 计算 机 的 工作 状态 和 计 
算 机 的 执行 结果 。 

中 华 学 习 机 有 五 种 显示 方式 

1。 字 符 显示 方式 
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中 华 学 习 机 开机 后 就 处 于 字符 显示 方式 。 每 屏幕 可 以 显 
示 24 行 ， 每 行 40 个 字符 ， 即 可 以 显示 960 个 字 符 。 每 个 字符 
由 5 x 7 点 阵 组 成 。 西 文 BASIC 语 言 程序 就 使 用 这 种 显示 方 
式 。 

2。 低 分 辩 图 象 显示 方式 

通过 中 华 学 习 机 BASIC 语 言 中 的 特定 语 句 ( 见 第 九 章 ) 
可 以 使 每 屏幕 显示 48 x 40 〈1920) 个 小 方块 。 每 个 小 方块 占 
一 个 字符 宽 、 半 个 字符 长 。 这 时 ， 可 以 把 屏幕 作为 一 个 直角 
座 标 系 下 的 平面 看 待 ， 原 点 在 左上 角 ， 座 标 为 (0，0) ， 
横 座 标 为 X， 方 向 向 右 、 取 值 为 0 ~39， 纵 座 标 为 Y， 方 向 
向 下 ， 取 值 为 0 ~47。 著 使 用 彩色 显示 器 ， 每 个 小 方块 可 以 
有 16 种 颜色 供 你 选择 。 

3。 高 分 辨 图 象 显示 

通过 BASIC 语 言 中 的 特定 语 名 〈 见 第 九 章 ) 可 以 使 屏 
大 显示 192x280 (53760) 的 点 阵 。 这 时 ， 把 屏幕 作为 直角 
座 标 系 下 的 平面 看 待 时 ， 原 点 〈0，0 ) 在 左上 角 ， 和 X 轴 疝 
下 ， 取 值 为 0 ~279，Y 立 轴 疝 下 ， 取 值 为 0 ~191。 这 种 显示 
方式 用 于 冷 制 各 种 游戏 图 形 ， 各 种 昌 线 ， 其 图 形 的 清晰 度 比 
低 分 辨 作 图 要 高 得 多 。 

4。 混 合 显示 

这 种 显示 方式 屏幕 的 上 部 为 低 分 辩 图 象 显示 方式 或 高 分 
辨 图 象 显 示 方 式 ， 屏 幕 的 下 部 有 4 行 可 以 显示 字符 。 

5。 中 文 方式 

任何 时 候 按 下 键盘 上 的 中 文 键 ， 就 进入 中 文 方式 。 中 文 
显示 借用 的 是 高 分 辨 图 象 显示 方式 。 每 屏幕 可 以 显示 10 行 ， 
每 行 17 个 汉字 ， 总 共 可 显示 170 个 汉字 。 屏 幕 的 第 11 行 是 状 
坊 行 ， 用 于 显示 当前 的 输入 方式 和 相应 的 提示 信息 ， 若 在 中 
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文 方式 下 显示 英文 字符 ， 则 每 个 字符 占 半 个 汉字 的 位 置 ， 即 
每 行 可 显示 34 个 字符 。 这 种 显示 方式 , 主要 用 于 中 文 BASIC。 
中 华 学 习 机 BASIC 语 言 提供 了 三 个 显示 控制 语句 : 
NORMAL 置 显示 器 为 正常 显示 ， 即 “ 黑 底 白字 ” 显 


INVERSE 置 显示 器 为 反 相 显 示 ， 即 “ 扬 底 黑 字 ” 显 


FLASH 置 显示 器 为 闪烁 方式 。 

这 三 个 语句 都 可 以 用 于 西 文 BASIC， 在 字符 显示 方式 时 
使 用 。 中 文 BASIC 只 能 使 用 NORMAL 和 IN VERSE， 不 能 
使 用 FLASH。 这 三 个 语句 可 以 用 于 立即 执行 方式 ， 从 键盘 
直接 播 入， 也 可 以 写 在 程序 中 。 

二 、 键 嚼 

中 华 学 习 机 的 键盘 安装 在 主机 外 壳 上 ， 共 有 69 个 键 ， 且 
备 了 标准 打字 机 键盘 的 各 种 键 ， 并 按 照 打字 机 的 键 位 排列 

见 图 2-4》 ， 因 此 可 以 使 用 中 华 学 习 机 练习 打字 机 的 指 
法 。 

中 华 学 习 机 的 键盘 在 机 内 用 扁平 电缆 和 主机 的 键盘 接口 
相连 。 键 盘 输 入 接口 的 作用 是 将 键盘 产生 的 位 置 码 变换 为 按 
键 所 对 应 的 ASCII 码 送 入 主机 。 

键盘 上 的 字母 键 、 数 字 键 、 符 号 键 和 空格 键 〈 最 下 面 的 
长 键 ) 被 按 下 后 能 自动 重复 显示 ， 直 到 手指 抬 起 为 止 。 除 此 
外 ， 键 盘 上 还 有 一 些 特殊 功能 键 : 

1。RETURN 键 是 回 车 键 。 当 输入 命令 ， 程 序 行 ， 数 
据 时 ， 按 下 该 键 ， 则 把 键入 的 内 容 送 入 内 存 贮 器 ， 结 束 一 行 
的 输入 。 

2。SH IFT 键 是 上 档 键 。 键 盘 上 有 一 部 分 键 标 有 2 个 
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任 号 ， 叫 做 双 档 键 ， 直 接 按 这 种 刍 输 入 的 是 键 下 方 标的 符 
号 ， 若 按 下 SHIFT 刍 ， 同 时 按 双 档 键 ， 则 输入 的 是 键 上方 
标的 符号 。 

3。Cap/L ock 键 在 输入 字 有 母 时 ， 用 于 控制 大 、 小 
写 。 该 刍 按 下 后 ， 再 按 的 字母 刍 ， 都 是 输入 大 写字 母 ， 该 健 
抬 起 、 按 下 的 字母 键 都 输入 小 写字 母 。 

1。Tab 键 是 制 表 键 ， 每 按 一 下 使 光标 跳 过 8 个 字符 ， 
即 到 达 1，9，17，23，… 的 位 置 。 

5。 中文 键 被 按 下 后 ， 则 进入 中 文 方式 。 

6。 西 文 键 在 中 文 方式 被 按 下 后 ， 则 退出 中 文 方式 ， 进 
入 西 文 方式 

7。Qnu it 键 是 退出 键 。 当 BASIC 程 序 正 在 运行 时 ， 按 
下 该 键 ， 则 停止 程序 的 执行 ， 并 退 回 到 BASIC 提 示 状 态 
若 机 器 处 于 监控 状态 , 按 下 该 键 ， 则 回 到 BASIC 提 示 状 态 。 

8。F1~RF 5 是 可 扩 人 的 五 个 功能 键 “现在 F1、.F2 和 F3 已 
经 被 定义 ,FF4、F5 留 待 扩充 。F1 被 按 下 时 , 键 字母 以 ASCII 
码 形式 送 入 内 存 。F2 被 按 下 时 ， 处 于 中 文 拼 音 方式 输入 。 
F3 被 按 下 时 ， 处 于 中 文 区 位 码 方式 输入 。 

9。Ctrl 键 是 控制 键 ， 它 和 其 他 键 组 合 后 具有 某 些 特 
殊 的 功能 。 常 用 的 有 以 下 几 种 : 

Ctrl-Reset 系 统 复位 。 忆 复 到 开机 的 初始 状态 ， 内 在 
中 的 信息 不 丢失 。 

Ctrl-Reset-test 三 个 键 一 起 按 下 ， 机 器 进行 自 检 。 


Ctrl-S 冻结 屏幕 , 再 按 其 它 任意 键 可 以 继续 显示 。 
Ctrl-C 中 断 计算 机 运行 。 
Ctrl-X 屏幕 上 显示 倒 斜 线 “” 字 符 ， 使 刚 


刚 殴 入 的 字符 序列 (在 没 按 RETURN 
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键 时 ) 失效 。 


Ctrl-G 使 机 器 内 的 喇叭 发 出 “ 哪 ” 声 
Ctrl-L 在 中 文 方 式 下 进入 拼音 输入 方式 。 
Ctrl-W 在 中 文 方式 下 进入 区 位 码 输入 方式 。 


使 用 Ctrl 键 时 ， 要 按 住 Ctrl 键 ,同时 按 上 述 相应 的 刍 

10。 四 个 箭头 键 用 于 屏幕 编辑 

入 光标 上 移行 

Y 光标 下 移 一 行 

< 删 去 内 存 输 入 行 的 最 未 一 个 字符 ， 并 使 光标 左 移 一 

格 
>。 可 把 光标 处 的 字符 输入 到 内 存 输入 行 末尾 ， 并 使 光 
标 右 移 一 格 

11。ESCAPE 键 ( 标 有 ESC) 提供 了 一 套 在 BASIC 状 
态 和 监控 状态 都 能 使 用 的 一 套 编辑 命令 。 这 套 编 辑 命令 只 改 
变 屏 幕 上 的 信息 ， 不 改变 内 存 中 输入 行 的 信息 。 按 下 ESC 键 
后 ， 就 进入 编辑 状态 , 则 可 以 使 用 下 述 11 个 键 进行 屏幕 编辑 ; 

ESC A 光标 右 移 一 格 、 退 出 ESC 方 式 。 

ESC B 光标 左 移 一 格 、 退 出 ESC 方 式 。 

ESC C 光标 下 移 一 行 、 退 出 ESC 方 式 。 

ESC D 光标 上 移 一 行 、 退 出 ESC 方 式 。 

ESC 了 从 光标 所 在 处 消除 到 行 未 尾 . 退 出 ESC 方 式 

ESC F 从 光标 所 在 处 开始 , 消除 到 屏幕 未 尾 ， 退 出 

ESC 方 式 。 
ESC Ctrl-@ 清 屏幕 ， 且 光标 回 到 屏 幕 左 上 角 ， 退 出 
ESC 方 式 。 
ESC I 光标 上 移 一 行 ， 仍 处 于 ESC 方 式 。 
ESC J_ 光标 左 移 一 格 ， 仍 处 于 ESC 方 式 。 
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ESC 开光 标 右 移 -- 格 ， 仍 处 于 ESC 方 式 。 

BSC M 光标 下 移 -一 行 ， 仍 处 于 ESC 方 式 。 

ESCAPE 键 的 使 用 和 Ctrl 键 不 同 ， 按 下 ESC 键 ， 手 拍 
起 ， 再 按 上 述 相应 的 键 。 按 下 ESC 键 后 ， 就 进入 ESC 方 式 ， 
在 ESC 方 式 下 ， 可 以 连续 使 用 I[，J，K，M 四 个 键 ， 直 到 打 
入 了 上 述 11 个 键 外 的 一 个 键 或 是 再 按 一 次 ESC 键 ， 才 退 出 
ESC 方 式 。 而 在 ESC 方 式 下 A ~F 键 和 Ctrl-@ 键 只 使 用 一 
次 ， 就 退出 ESC 方 式 。 

在 下 一 车 ， 将 看 到 把 ESC 方 式 和 < 和 键 > 键 巧妙 地 结合 
起 来 使 用 ， 可 以 很 方便 地 对 程序 进行 编辑 。 


第 三 入 浮 点 BA3IC 的 操作 


如 果 和 你 的 中 华 学 习 机 没有 配置 磁盘 机 ， 那 么 只 要 打开 主 
机 的 电源 ， 就 自动 进入 中 华 学 屋 机 BASIC 系 统 , 屏 幕 上 显示 
出 ， 

ZHONG HUA 和 XUE XI JI 

YV 了 RSION 1。0 
] 四 

“] ”是 BASIC 的 提示 符 , 表示 机 器 处 于 BAS1C 状 态 ， 
可 以 键入 BASIC 的 程序 及 有 关 命 令 。 闪 炼 的 小 方 块 ,叫做 光 
标 ， 它 标明 当前 输入 的 字符 的 所 在 位 置 。 

在 输入 一 个 新 程序 之 前 ， 最 好 先 使 用 下 面 两 个 命令 : 

1。NE 允 命令 ， 该 命令 的 功能 是 清 内 存 贮 器 ， 也 就 是 
把 原来 内 存 贮 器 中 存放 的 程序 清 掉 ， 免 得 新 送 入 的 程序 和 内 
存 中 原 有 的 程序 穿插 在 一 起 而 引起 混乱 。 该 命令 不 清 屏 幕 ， 
当 内 存 中 的 内 容 被 清 掉 后 ， 屏 幕 上 还 保留 原来 的 内 容 。 
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2。HOME 命 令 。 该 命令 的 功能 是 把 屏幕 消除 干净 ， 
并 县 拖 光 标 移 到 屏幕 的 左上 角 。 该 命令 不 清 内 存 贮 器 中 的 内 
容 ， 当 屏幕 上 的 内 容 被 消 掉 后 ， 内 存 中 仍然 保留 着 原来 的 内 


从 键盘 输入 命令 ， 要 在 提示 符 “] ”之 后 ， 逐 个 鼓 入 字 
母 ， 命 令 输 完 后 ， 要 按 RETURN 键 ， 命 邻 才 被 接受 并 执 
行 。 为 了 书写 方便 ， 常 常用 。/ 来 表示 按 RETURN 键 ， 比 


] NEW 
] HOME 
这 两 个 命令 的 使 用 没有 先后 次 序 ， 也 不 一 定 一 起 使 用 ， 但 是 
每 输入 一 个 新 程序 之 前 ， 要 先 打 和 人 NE 而 命令 。 
我 们 先 以 一 个 程序 为 例 ， 来 看 看 怎样 输入 、 检 查 、 运 行 
和 修改 程序 : 
例 
5 REN C62301 
HGR2 
26 HCOLOR=3 
38 “FOR T=9 TO0 2s3.14159 STEP 8.61 
49 P=SINH(C4sT) 
58 。X=56spsC0S(T) 
69 YY=50spsSIN(T) 
76 HPLOT INT(X)+149,1NT(Y)+95 
88 本 T 
9 PRINT 
1696 FOR !=1 T0 1069: NEXT | 
116 TEXT 
126 END 
一 、 程 序 的 输入 
一 个 BASIC 程 序 由 若干 个 语句 行 构成， 每 个 语 名 行 前 
面 有 一 个 行 号， 行 号 后 面 是 语句 。 
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在 BASIC 提 示 符 下 ， 先 键入 行 号 ， 然 后 逐个 字符 敲 人 
(5 REM C02301 是 题 号 注释 ， 可 以 不 输入 ) ，“，” 表 示 
空格 。 一 行 输入 完 ， 按 RETURN 键 ， 则 这 行 的 内 容 就 被 接 
受到 内 存 的 指定 区 域 ， 并 且 使 光 款 同 到 下 一 行 的 最 左边 ， 然 
后 就 依次 输入 下 一 行 : 
10 HGR2.2/ 
20，HCOLOR = 3 
30，FOR，I= 0TO，2x3.14159，STEP，0.01./ 
120 记 END。7 
F 一 节 中 已 说 过 ， 字 符 显示 时 ， 每 行 可 显示 40 个 字符 ， 
一 共 24 行 ， 如 果 一 个 语句 超过 了 40 个 字符 ， 则 自动 地 显示 在 
下 一行。 如 果 程 序 超过 了 24 行 ， 则 屏幕 会 自动 向 上 翻 卷 。 
二 、 程 序 的 检查 
程序 输入 完 后 ， 可 以 打 入 LIST 命 令 。 计 算 机 就 会 把 程 
序 清单 列 在 屏幕 上 ， 以 便 查 看 程序 是 否 有 错误 或 进行 修改 。 
如 果 只 键入 命令 LIST。./， 则 显示 程序 的 全 部 程序 行 。 
如 果 程 序 较 长 ， 程 序 的 前 面部 分 会 自动 翻 卷 过 去 ， 这 时 可 以 
按 Ctrl-S 和 暂停 程序 执行 ,使 屏幕 冻 结 在 程序 的 前 半 部 分 ， 也 
可 以 用 下 述 命令 ， 列 出 程序 的 部 分 内 容 。 


LIST 行 号 。/ 列 出 指定 行 。 
LIST 行 号 1， 行 号 2 列 出 从 某 行 到 某 行 的 程序 清单 。 
LIST, 行 号 ./ 列 出 开头 到 某 行 的 程序 清单 。 
LIST 行 号 ，.-/ 列 出 从 某 行 到 程序 未 尾 的 程序 
清单 。 
如 ， 
] LIST 40./ 只 显示 40 行 


] LIST 40,100.7/ 显示 出 40 到 100 行 。 
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] LIST ,100./ 从 头 列 到 100 行 。 

] LIST 50, .2 从 50 行 列 到 程序 未 尾 。 

三 、 程 序 的 运行 

如 果 你 认为 你 输入 的 程序 正确 ， 就 可 以 试 着 运行 一 下 ， 
只 要 打 入 命令 : 

RUN 
计算 机 就 自动 地 从 最 小 行 号 开始 ， 依 次 执行 程序 的 各 语句 。 
当 程 序 运 行 到 END、STOP、 或 是 按 下 Ctrl-C 键 .Quit 键 ， 
程序 才 停 由 。 

我 们 这 节 输 入 的 小 程序 是 一 个 在 高 分 辩 率 下 作 图 的 程 
岩 ， 打 入 RUN.， 会 自动 地 在 屏幕 上 天 出 图 形 : 

.图 形 画 完 时 ， 计 算 机 还 会 
发 出 “ 哪 ? 的 一 声 , 稍 等 一 下 ， 
就 又 回 到 图 形 文本 显示 方式 。 ~ 


so。 


如 果 不 想 从 最 小 行 号 开始 。 ci ee 
执行 ， 而 想 从 程序 的 某 一 行 开 ”1 


始 执行 〔 当 然 ， 稳 序 这 样 执行 
必须 是 可 行 的 ) ， 比 如 从 90 行 
开始 执行 ， 可 以 键入 命令 : 
] RUN 90. 
。 如 果 程 序 是 由 STOP、END 或 是 按 下 Ctrl-C 键 中 途 停止 
运行 的 ， 可 以 打 入 命令 : 


] CONT.。， 
则 程序 就 可 以 从 下 一 个 语句 行 开始 继续 运行 。 
四 、 程 序 的 修改 


当 发 现 程 序 有 错误 时 ， 可 以 用 上 一 节 键 盘 部 分 中 所 介绍 
的 四 个 箭头 键 、ESC 方 式 以 及 Ctrl-C 对 程序 进行 修改 : 
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1。 在 键入 程序 时 ， 只 要 还 没有 掖 RETURN 键 就 可 以 直 
接 用 键 < 和 人 > 以 及 空格 键 来 修改 这 行 中 的 某 些 字符 。 只 要 用 
妃 键 把 光标 移 到 错误 字符 处 ， 再 键入 正确 字符 ， 再 用 [> 键 扫 
过 正确 的 字符 就 可 以 了 。 

2。 如 果 一 个 程序 行 已 沪 RETURN 键 被 送 入 内 存 ， 进 行 
修改 的 最 直接 的 办 法 是 键 和 人 要 修改 的 那 行 的 行 号 ， 然 后 正确 
键入 本 程序 行 的 内 容 。 

3。 如 果 要 删除 某 一 语句 行 ， 只 要 打 入 行 号 然后 按 RET 
URN 键 即 可 。 

4。 如 果 要 搬 人 一 行 ， 只 要 打 入 一 个 介 于 两 个 语句 行 行 
间 的 行 号 ， 并 键入 该 行内 容 ， 然 后 按 RETURN 键 。 比 如 ， 
想 在 40 和 50 行 之 间 播 人 一 行 ,只 要 使 行 号 大 于 40 并 且 小 于 50， 
键入 该 行内 容 、 然 后 打 和 人 回 车 键 。 

5。 如 果 程 序 运 行 中 发 生 了 错误 ， 可 以 用 上 述 的 LIST 命 
令 把 程序 列 在 屏幕 上 ， 然 后 用 ESC 的 屏幕 编辑 命令 和 效 头 键 
心 、[> 相 配合 对 程序 进行 修改 。 

(1 ) 修改 革 些 字符 ， 

如 果 列 出 的 程序 30 行 中 有 错误 

30 FOR 个 =0TO 2#2.14159 STEP 0.01 

现在 要 把 2.14159 改 为 3.14159， 可 以 这 样 进行 ， 

@ 按 下 ESC 键 ， 进 入 屏幕 编辑 状态 ， 再 用 开本 、 和 
M 键 〈 也 可 以 直接 用 人 和 Y 键 ) 把 光标 移 到 30 行 的 最 左 端 。 
[lo FOR T=0TO2x2.14159 STFP 0.01 

加 再 次 按 下 ESC 键 ， 退 出 屏幕 编辑 ， 然 后 用 [> 键 把 要 
保留 的 字符 扫 一 遍 ， 把 正确 的 内 容 接受 到 内 存 中 。 

30 FOR 下 =0 TO 2x#x[2l.14159 STEP 0.01 

转 凡是 光标 到 达 错 误 字 体 处 ， 就 打 入 正确 字符 : 
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30 FOR 了 T=0 TO 2x|3l.14159 STEP 0,.01 
@@ 用 放 键 扫 其 余 正 确 的 字符 ， 直 到 行 末 尾 ， 就 把 剩余 


锡 内 容 接受 到 内 存 。 
30 FOR 个 =0 TO 2#3。14159 STEP 0.01 人 | 


回 “ 按 RETURN 键 ， 这 一 行 就 修改 完毕 。 人 

《2 ) 插入 若干 字符 ， 

如 果 某 一 行 漏 掉 了 若干 字符 ， 比 如 50 行 漏 掉 了 50X#xPx 。 
可 以 用 下 面 的 方法 插入 。 

第 日 、@ 步 如 上 所 述 ， 用 [> 键 从 50 行 的 最 左 端 扫 到 需要 
插入 字符 的 位 置 ; 

50 X=|ICIOS(T) 

@@ 再 次 按 下 ESC 键 涝 入 屏幕 编辑 ， 用 工 了、 上 和 M 键 
把 光标 移 到 屏幕 的 任何 位 置 ， 

50 X=:GiOS(CT) 

上 | 

四 ”再 按 下 ESC 键 退出 屏幕 编辑 ， 然后 键入 漏 掉 的 字 

， 80 XEsGO0S( 了 TY 
50 尖 卫 兴 | | 

加 再 次 按 下 ESC 键 进入 屏幕 编辑 ,用工 、 丁 、 开 和 M 
钢 把 光标 移 回 应 当 插入 字符 的 位 置 ， 

50 X=iICIOSCT) 

50 关 卫 关 硬 

再 按 EBSC 键 退出 屏幕 编辑 ， 用 i> 键 扫 其 余 字 符 ， 直 
到 行 末 尾 ， 然 后 按 RETURN 键 ， 这 一 行 修改 完毕 。 

(3) 删除 某 些 字符 : 
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删除 字符 与 修改 字符 的 操作 相 类 似 ， 只 是 在 用 人 > 扫 过 -- 
行 字符 时 ， 当 光标 到 达 要 删除 的 字符 时 ， 用 ESC 键 和 工 、K 
键 使 光标 跳 过 它 ， 那 些 字符 就 被 删除 了 。 


第 四 节 ” 中文 BAsIC 的 输入 


中 华 学 习 机 的 内 在 ROM 中 国 化 了 议 字 管 理 程序 和 包含 
有 6763 个 常用 汉字 的 字库 。 当 进入 中 文 BASIC 方 式 时 ， 就 可 
以 在 字符 串 变 量 、 字 符 串 常量 以 及 注释 中 使 用 汉字 了 。 

一 、 中 文 BASIC 的 进入 和 退出 

在 浮 点 BASIC 方 式 下 ， 可 以 用 下 述 三 种 方 法 进 人 中 文 
BASIC， 

1。 按 下 “中 文 ? 键 

2。 键 人 PR * 3 命令。 在 原 苹 果 机 上 ， 留 有 8 个 通道 
(编号 0 ~ 7 ) 供 扩充 机 器 功能 和 连接 外 部 设备 使 用 ， 其 中 
3 * 通道 用 于 接 汉 字 卡 。 而 中 华 学习 机 已 把 萃 果 机 议 字 卡 
上 的 汉字 管理 程序 和 汉字 库 装 在 机 器 底版 上 了 ， 为 了 使 中 华 
学 习 机 和 蔡 果 机 能 兼容 ， 中 华 机 上 保留 了 3 * 通道 的 和 人口。 
因此 键 人 PR * 3 命令 ， 就 可 以 进入 中 文 BASIC。 


3。 按 下 Ctrl-R 
用 上 述 任 一 方法 进入 中 文 BASIC 时 ， 屏 幕 上 会 显示 : 
六 大人 放 克 太 交大 
夫 。 中 , 华 学 习 机 :六 
真 站 让 次 谢 让 让 丰 让 丰 真人 娘 人 娘 食 
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一 


字母 

在 中 文 方 式 王 ， 提 示 符 仍然 是 “] ”， 而 光标 则 是 一 个 
闪烁 的 短 划 。 

和 BASIC 一 样 ,在 输入 新 程序 之 前 , 先 键入 清 内 在 命令， 

] NEW。) 

在 中 文 BASIC 方 式 下 ， 不 能 使 用 HOME 命令 清 屏 幕 ， 
而 要 使 用 HGR.2 命 令 。 键 入 

] HGR2. 
则 屏幕 被 清除 干 癣 ， 提 示 符 和 光标 出 现在 屏幕 左下 方 。 

在 中 文 方式 下 , 可 以 用 以 下 任 一 方式 退回 到 BASIC 方 式 ， 

1。 按 下 “ 西 文 ? 键 

2。 按 系统 复位 ， 即 Ctrl-Reset 

3。 按 下 Ctrl-Q 

二 、 汉 字 输 入 

比如 程序 中 有 一 个 打印 语句 ， 要 在 屏幕 上 显示 : 


炒米 米 好 好 学 习 天 天 向 上 水 素来 


程序 如 下 : 

5 REM C02401.C 

10 HGR2 

20 PRINT TAB(5); “ 末 水 来 好 好 学 习 天 天 向 上 水 水 炎 ” 
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30 PRINT 
40 PRINT 
50 END 
在 中 文 方式 下 ， 键 入 这 个 程序 ， 当 输入 到 
50 PRINT 4 炒米 米 吕 _ 罗 
时， 可 以 用 以 下 二 种 方法 输入 汉字 ， 
1， 掩 音 输入 方法 ， 

(1 ) 进入 拼音 输入 方式 ， 按 下 Ctr1 键 ， 同 时 按 下 工 键 ， 
屏幕 的 最 末 一 行 〈 称 为 状态 行 ) 显示 “拼音 ”两 个 字 ， 即 进 
入 拼音 输入 方式 。 

(2 ) 全 拼音 输入 是 指 在 输入 汉字 时 ， 要 将 该 汉字 的 声 
母 、 韵 母 全 部 打 和 入， 计算机 根据 输入 的 音节 在 状态 行 上 提示 
出 该 音节 的 所 有 字 ， 包 括 不 同 声调 的 字 。 

(3 ) 打 入 第 一 键 时 ， 屏 幕 状态 行 上 显示 出 以 该 声母 开 
头 的 音节 中 最 常用 的 6 个 汉字 。 如 果 有 要 使 用 的 汉字 ， 只 要 
打 入 相应 的 数字 ， 被 选 的 汉字 就 出 现在 光标 所 存 处 。 若 没有 ， 
则 要 继续 打 入 韵母 。 例 如 ，“ 好 ”的 声母 是 “也 7”， 打 入 
“H”， 状 态 行 上 显示 : 

拼音 ，h 1 和 2 会 3 后 4 化 5 好 6 合 
按 数字 键 “5 ”, 就 输入 一 个 汉字 “好 ”， 再 按 数字 “5 ?”， 
又 输入 一 个 汉字“ 好”。 打 入 声母 六 ， 用 同样 办 法 输入 
《学 少 

40 PRINT“# 洲 洲 好 好 学 - 

(4) 如 果 打 完 韵 母后 ， 若 屏幕 状态 行 上 显示 的 六 个 同 
音字 中 没有 要 输入 的 汉字 ， 可 以 用 之 键 向 后 查找 ， 每 按 一 下 
> 键 ， 屏 幕 状态 行 又 会 显示 下 一 幕 6 个 同音 字 节 ， 直 到 计算 
机 发 出 “ 哪 ” 的 一 声 ， 表 示 已 全 部 显示 完 。 当 要 寻找 前 一 幕 
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欧 汉 字 时 ， 可 以 敲 入 去 键 .例如 ， 打 入 “ 习 ? 的 声母 “X2”、 
韵母 “1 >”， 则 屏幕 状态 行 上 没有 “ 习 允 字 ， 就 按 > 键 ， 如 
果 还 没有 “ 习 2” 字 ， 再 继续 用 之 键 查找 ， 找 到 后 按 其 相应 数 
字 键 输入 “ 习 ?” 字 :， 

40 PRINT 6 交 关 关 好 好 学 习 - 
继续 用 3 和 4 步 输入 其 余 汉字 。 

(5 ) 在 输入 时 ， 如 果 有 的 拼音 打 错 了 ， 可 以 直接 用 < 
键 删除 状态 行 上 最 后 一 个 拼音 字母 ， 若 状态 行 上 的 拼音 都 妥 
掉 后 ， 再 按 急 键 ， 则 删除 光标 处 的 汉字 或 其 他 字符 。 

(6 ) 汉字 输入 完毕 ， 再 按 Ctrl 键 ， 并 同时 粮 世 键 ， 屏 
幕 下 部 的 状态 行 上 显示 “ 西 文 ” 两 个 字 ， 表 示 已 退出 了 拼音 
方式 

2， 区 位 码 输入 方式 ; 

区 位 码 是 国家 对 汉字 、 英 文字 母 、 日 文 假名 .拉丁 英 母 、 
俄 文英 母 . 希 腊 字 母 和 一 些 常 用 字符 的 统一 编码 ( 见 附 录 四 )， 
每 个 字 的 编码 是 四 个 十 进 制 数字 ， 高 位 两 个 数字 表示 区 码 、 
低位 两 位 数字 表示 位 码 。 在 附录 四 中 纵 目 录 的 第 二 列 和 横 目 
录 的 芝 二 行 分 别 是 相应 的 区 码 和 位 码 ， 纵 目录 的 第 一 列 和 横 
上 且 录 的 第 一 行 是 相应 的 区 码 ， 位 在 机 器 内 部 的 二 进 制 表示 

(用 十 六 进 制 数 给 出 ) ， 称 为 高 位 内 码 和 区 位 内 码 。 

由 于 区 位 码 不 易 记 忆 ， 所 以 只 有 在 拼音 方式 下 查找 不 到 
的 汉字 ， 才 使 用 区 位 码 方式 进行 输入 。 此 外 ， 区 位 码 方式 还 
常常 用 于 制 表格 或 是 输入 一 些 其 他 特殊 符号 ， 如 “ 妈 ?”， 
6; 兴 罗 等 锋 。 

给 入 方法 如 下 : 

(1 ) 进入 区 位 码 输 入 方式 ， 按 下 Ctrl 键 、 同时 按 下 L 
键 ， 屏 幕 的 状态 行 显示 “区 位 ”两 个 字 ， 即 进入 区 位 码 输 入 


41 


方式 。 

(2 ) 在 区 位 码 表 上 查找 要 输入 的 汉字 一 级 汉字 库 的 
字 按 拼音 顺序 查找 ， 二 级 汉字 字库 按 部 首 查找 ) 。 并 找到 其 
相应 的 区 码 和 位 码 。 例 如 ， 要 输入 “ 狂 ” 字 ， 查 “ 犬 ” 偏 旁 
字 ， 找 到 “ 狂 ” 字 ， 它 的 区 码 是 66， 位 码 是 12，“ 狂 2” 字 的 
区 位 码 就 是 6612， 同 样 可 以 查 得 “ 猿 ” 字 的 区 位 码 是 6615。 

(3 ) 打 人 区 位 码 ， 打 完 和 个 数字 后 ， 相 应 的 汉字 就 被 
显示 在 光标 的 位 置 。 

(4) 当 区 位 码 打 错时 ， 可 以 用 急 键 删 去 区 位 码 。 当 区 
位 码 都 被 删 掉 后 ， 可 以 用 急 键 移动 光标 ， 使 光标 停 在 要 删除 
的 汉字 下 方 ， 按 空格 键 删 去 错误 的 汉字 。 

(5 ) 用 区 位 码 方式 输入 完毕 ， 按 下 Ctrl 键 、 同 时 按 下 
丽 键 ， 屏 幕 状 态 行 显示 出 “ 西 文 2 两 个 字 ， 即 退出 区 位 码 输 
入 方式 。 

中 文 BASIC 程 序 中 的 非 汉 字 字 符 的 输入 和 浮 点 BASIC 一 
样 ， 而 且 在 浮 点 BASIC 中 使 用 的 屏幕 编辑 、 列 程序 清单 和 运 
行程 序 的 命令 在 中 文 BASIC 中 都 一 样 使 用 、 不 再 详 述 。 


第 五 节 “外 存 贮 器 和 程序 的 保存 


计算 机 用 外 部 存 贮 器 来 保存 大 量 的 程序 和 数据 ， 在 关机 
以 后 ， 这 些 信 息 不 会 丢失 ， 可 以 长 期 保存 关 干 年 ， 什 么 时 候 
使 用 ， 再 把 要 使 用 的 程序 和 数据 从 外 存 贮 器 上 装 入 内 存 贮 
器 ， 计 算 机 就 可 以 执行 了 。 中 华 学 习 机 的 外 存 贮 器 有 盒 式 磁 
带 机 和 软磁盘 驱动 器 ， 可 以 把 BASIC 程 序 做 为 文件 〈 见 第 
十 三 章 ) 长 期 保存 在 磁带 和 软磁盘 上 。 
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一 、 盒 式 磁 带 机 

中 华 学 习 机 机 壳 右 面 留 有 一 个 盒 式 磁带 机 的 插座 ， 这 个 
插座 通过 电缆 线 和 主机 的 外 设 接 口 相连 。 

盒 式 磁带 机 〈 也 可 以 使 用 一 般 的 家 用 录音 机 》 用 一 根 电 
缆 线 和 主机 上 的 插座 相连 。 电 缆 线 一 端的 播 头 插入 主机 壳 上 
的 磁带 机 播 座 ， 电 缆 的 另 一 端 有 两 个 插头 ， 把 标 有 EAR 的 播 
头 和 磁带 机 的 输出 端 (CEAR)， 插 孔 相 连 : 将 标 有 MIC 的 播 
头 与 磁带 机 的 输入 端 (MIC) 插 孔 相连 。 磁 带 可 以 使 用 市 面 
上 的 普通 音乐 用 磁带 。 

中 华 学 习 机 可 以 按照 文件 名 来 保存 文件 〈 详 见 第 十 三 
章 ) ， 并 且 按 给 定 的 文件 名 把 磁带 上 的 文件 装 入 内 存 ， 这 是 
在 华 果 机 基础 上 的 改进 。 

1。 把 内 在 中 的 程序 存 信 磁带 

如 果 要 把 内 存 中 的 BASIC 程 序 写 和 磁带， 首先 要 给 这 个 
程序 起 一 个 文件 名 ， 比 如 ， 我 们 要 把 本 章 第 三 节 中 画图 的 程 
序 保存 起 来 ， 先 给 它 一 个 文件 名 “GRAPH”， 然后 按 下 面 
步骤 把 它 写 入 磁带 : 

C1) 在 BASIC 提 示 符 下 打 入 命令 SAVE “文件 名 ?” 
(注意 :文件 名 必须 要 加 引号 ) ， 先 不 要 按 RETU RN 键 ， 

] SAVE 4“GRAPHy” 

〈2 ) 把 磁带 装 入 合式 磁带 机 或 家 用 录音 机 ， 并 把 磁带 
反 绕 到 头 ， 同 时 按 下 PLAY 键 和 RECORD 键 ， 磁带 开始 旋 
转 并 处 于 录音 工作 方式 。 

〈8 ) 然后 再 按 下 键盘 上 的 RETIURN 键 。 

内 存 中 的 程序 就 被 写 和 磁带， 程序 写 完 后 就 把 给 定 的 文 
件 名 “GRAPH” 记 在 程序 后 面 。 

每 盘 磁 带 可 以 写 若干 个 程序 ， 每 个 程序 都 是 程序 在 前 ， 
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文件 名 在 后 。 

2。 把 磁带 上 的 文件 调 入 内 在 贮 器 : 

要 把 磁带 上 的 文件 调和 内存 ,要 事先 知道 该 文件 的 名 子 ， 
按 下 述 步 又 把 GRAPH 文 件 从 磁带 装 入 内 存 : 

(t) 在 BASIC 提 示 符 下 打 入 命令 LOAD “文件 名 ? 
(注意 : 文件 名 必须 要 加 引号 ) ， 先 不 要 按 RETURN 键 : 

] LOAD “GRAPHY” 


《2 ) 把 磁带 装 入 盒 式 磁带 机 或 家 用 录音 机 ， 并 把 磁带 
反 绕 到 头 ， 按 下 PLAY 键 ， 磁 带 开始 旋 ， 比 如 在 中 文 方式 下 
输入 程序 : 


5 及 EM C02501.C 

10 HGR2 

20 PRINT 

30 PRINT TAB(3)3 和 洲 炒 米 玉 米 米 玉 米 来 水 炒米 米 来 炒米 米 炒 
水 水 求 米 闵 水 玉昌 

40 PRINT 

50 PRINT TAB(8); “勤学 好 问 ?” 

60 PRINT TAB(14); 刻苦 钻研 ? 

70 PRINT 

80 PRINT TAB(3); “炒米 冰 玉 来 米 玉米 来 水 水 炒米 求 米 水 来 玉 
玉米 水 玉米 水 求 ? 

90 卫 ND 

按 下 “ 西 文 ” 键 ， 回 到 浮 点 BASIC 方 式 ， 屏 幕 上 显示 : 

5 REM C02501. 忆 

10 HGR2 

20 VTAB 3 

30 PRINT TAB(3)ji * 炒 来 玉 玉 求 炒米 水 求 玉米 来 米 来 来 炒 来 
粹 求 末 来 米 求 求 ? 

40 PRINT 

50 PRINT TAB(8); “FPS8MIP 
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60 PRINT TAD(14); “> > 二 YYPO* 

70 PRINT 

8R0 PRINT TAB(3)5 “水 来 水 玉米 来 来 米 米 水 来 来 求 来 玉 炒 
求 来 米 求 来 来 灾 求 史 

90 END 


打 人 和 命令; 

] SAVE ZHONG。/ 

这 个 程序 就 被 记 入 磁 秀 。 

要 把 一 个 中 文 BASIC 程 序 从 磁带 或 磁盘 中 调和 人 在 贮 器 ， 
也 必须 先 在 淫 点 BASIC 下 用 一 、 二 两 部 分 所 介绍 方法 调和 人 ， 
然后 按 下 “中 文 ? 键 ， 可 以 用 ELIST 命 令 把 程序 清单 显示 在 
屏幕 上 ， 你 就 会 看 到 带 有 汉字 的 程序 了 。 并 处 于 放 音 工作 方 
式 。 

(8 ) 然后 再 按 下 键盘 上 的 RETURN 键 。 

首先 送 入 磁带 上 的 第 一 个 文件 ， 接 着 送 入 第 一 个 文件 的 
文件 名 ， 并 把 文件 名 显示 在 屏幕 上 。 若 该 文件 不 是 在 LOAD 
命令 中 给 定 的 文件 ， 则 继续 读 入 下 一 个 文件 和 它 的 文件 名 ， 
兹 依次 把 文件 名 显示 在 屏幕 上 ， 直 到 把 给 定 的 文件 输入 到 内 
存 贮 器 为 止 。 

二 、 软 磁 旨 驱 动 器 

中 华 学 习 机 可 以 配置 一 台 5.25 英 寸 的 软磁盘 驱动 器 。 可 
使 用 单 面 单 密 度 磁盘 。 

把 软磁盘 驱动 器 的 20 线 电缆 插头 播 在 主机 后 面 的 20 线 电 . 
缆 插 座 忆 。 这 个 插座 在 机 内 用 电缆 和 外 设 接 只 的 6* 通 道 相 
连 。 

轻 轻 打开 软盘 驱动 器 前 面 的 小 门 ， 把 写 有 DOS3 .3 操作 
系统 的 磁盘 标签 朝 上 插入 驱动 器 ， 把 驱 动 器 小 门 关 好 。 在 
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BASIC 提 示 符 下 打 入 命令 ; 

] PR 间 6 
或 者 ] TIN 井 6 ./ 

则 驱动 器 的 红 灯 亮 ， 表 示 磁 盘 在 工作 ， 把 DOS3.3 操 作 系统 
调和 信人 内存。 

PR*n (Cn 为 0~7 通 道 号 ) 是 中 华 学 习 机 BASIC 中 选 
择 输 出 通道 的 命令 ， 而 IN*n (n 为 0~7 通道 号 ) 则 是 选 
择 输入 通道 的 命令 。 由 于 软盘 驱动 器 接 在 6 * 通道 ， 而 且 主 
机 即 可 以 向 它 输 出 又 可 以 从 它 输 入 ， 所 以 即 可 以 用 PR * 6 命 
令 把 它 作 为 输出 通道 选择 ， 也 可 以 使 用 IN * 6 命令 把 它 作为 

有 关隘 盘 操 作 和 DOS 命 令 在 第 十 一 准 中 将 详细 介绍 ， 下 

只 介绍 三 个 最 常用 的 命令 

1。 显 示 文 件 目录 ， 

把 DOS3.3 操 作 系统 调和 人 内存 后 ， 在 BASIC 提 示 符 下 ， 
打 入 命令 : 

] CATALOG 

该 磁盘 上 目录 区 登录 的 所 有 文件 名 、 文 件 大 小 、 和 文件 
类 型 显示 在 屏幕 上 ， 浮 点 BASIC 文 件 用 A 表 示 。 

当 要 向 磁盘 上 写 入 一 个 程序 时 ， 可 以 先 查看 一 下 目录 ， 
避免 使 用 相同 的 文件 名 。 如 果 你 把 文件 名 忘记 了 ， 也 可 以 查 
看 一 个 目录 。 从 文件 目录 上 可 以 很 容易 知道 这 片 磁 盘 上 记录 
了 哪些 文件 。 

2。 把 内 存 中 的 程序 写 人 磁盘 

在 BASIC 提 示 符 下 ， 打 入 命令 ， 

] SAVE 文 件 名 。/ 

注意 : 文件 名 不 能 加 引号 ， 这 点 和 向 磁带 上 写 入 文件 不 同 。 


乱 
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例如 ， 要 把 内 存 中 的 上 述 画图 的 BASIC 程 序 记 入 磁盘 ， 
打 入 命令 ; 

] SAVE GRAPH.。) 
软磁盘 驱动 器 的 红 灯 亮 ， 磁 盘 开 始 工作 ， 把 内 存 中 的 程序 写 
入 磁盘 ， 兹 且 把 文件 类 型 、 文 件 大 小 和 文件 名 登录 在 文件 目 
录 区 。 当 驱动 器 上 的 红 灯 熄 灭 ， 并 且 屏 幕 上 再 次 出 现 BASIC 
提示 符 时 ， 才 能 再 键入 其 他 命令 或 BASIC 程 序 。 

写 入 磁盘 的 文件 名 ， 不 能 使 用 磁盘 上 已 有 的 文件 名 ， 否 
则 新 写 入 的 文件 会 把 同名 的 文件 冲 掉 。 

3。 把 磁盘 上 的 文件 调和 内存 

在 BASIC 提 示 符 下 ， 打 入 命令 

] LOAD 文 件 名 。/ 

注意 : 文件 名 不 能 加 引号 , 这 点 和 从 磁带 调 入 文件 不 同 。 

例如 ， 要 把 刚才 存 入 盘 中 的 程序 调 入 内存， 打 入 命令 ， 

] LOAD GRAPH. 

软磁盘 驱动 器 的 红 灯 亮 ， 磁 盘 开 始 工作 ， 把 磁盘 上 名 为 
GRAPH 的 文件 调 入 内 存 ， 当 驱动 器 上 的 红 灯 熄灭 ， 屏 幕 上 
再 次 显示 BASIC 提 示 符 时 ， 就 可 以 再 输入 其 他 命令 和 BASIC 
程序 了 。 

如 果 磁 盘 上 没有 给 定 的 文件 ， 则 屏幕 上 显示 下 述 信息 ， 

FILE NOT FOUND 


] 量 
仿 上 述 三 个 命令 是 DOS 命 令 ， 必 须 把 DOS 调 和 内 存 后 ， 
才能 使 用 它们 。 


三 、 中 文 BASIC 程 序 的 保存 
要 把 一 个 中 文 BASIC 程 序 写 入 磁带 或 磁盘 ， 首 先 要 返回 
西 文 方式 。 然 后 按 上 述 一 、 二 两 部 分 所 说 办 法 把 程序 记 如 磁 
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带 或 磁 毅 上 。 


第 六 节 ”打印 机 及 打印 输出 


通常 需要 把 程序 和 运行 结果 用 行 式 打 印 机 打印 在 纸 上 ， 
通常 称 之 为 打印 输出 或 硬 拷贝 。 

中 华 学习 机 上 留 有 一 个 50 芯 揪 座 ， 可 以 配置 一 台 80 行 的 
行 式 打印 机 〈 最 好 用 MX-80 本 、RX-80 焉 ， 或 FX-80 亚 ) 。 
首先 把 打印 卡 从 中 华 学 习 机 主机 上 面 的 长 方 型 孔 揪 在 底座 的 
50 攻 插座 〈 装 有 电子 器 件 的 一 面 朝向 自己 播 信 ) ， 再 把 打印 
机 上 的 20 线 电缆 插座 揪 在 打印 卡 上 端 。 打 印 机 使 用 的 这 个 通 
道 是 1 * 通 道 。 

打印 机 加 电 正 常 后 ， 在 BASIC 提 示 符 下 打 入 命令 ; 

] PRe1i 
则 接 通 打 印 机 《〈 由 于 打印 机 是 输出 设备 ， 所 以 不 能 使 用 IN 井 
1 命令 ) 。 

这 时 ， 打 印 机 处 于 屏幕 文本 方式 硬 拷贝 。 凡 是 屏幕 上 在 
文本 方式 显示 的 内 容 ， 会 全 部 在 行 式 打印 机 上 打印 出 来 。 例 
如 ， 如 果 再 打 入 命令 : 

] LIST 
则 打印 出 程序 清单 。 如 果 打 入 RUN 命 令 使 程序 运行 ， 执 行 到 
打印 语 名 时， 就 会 打印 出 有 关 的 输出 信息 〈 见 第 三 章 ) 。 

打 和 命令: 

] PR * 0 
则 断 开 打印 机 。 

有 关 打 印 机 的 进一步 使 用 可 参看 “中 华 学习 机 ”基本 原 
理 和 使 用 的 第 八 章 。 
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可 以 使 用 行 式 打印 机 打印 中 文 BASIC 的 程序 和 进行 汉字 
输出 《〈 见 第 三 章 第 五 节 ) 。 也 可 以 用 行 式 打印 机 进行 高 分 辩 
率 屏 幕 硬 拷 贝 ， 把 在 高 分 辩 率 屏幕 工作 方式 下 所 绘制 的 图 形 
打印 出 来 《〈 见 第 九 章 ) 。 


习题 二 
1。 中 华 学 习 机 机 壳 上 的 每 个 插座 都 是 连接 什么 设备 的 ? 
2。 中 华 学 习 机 有 几 种 显示 方 式 ? NE 友和 HOME 命令 
的 作用 是 什么 ? 
3。 输 入 下 面 小 程序 ， 然 后 打 入 RUN 命 令 执行 它 ， 观 窒 
三 个 显示 控制 语句 的 作用 ， 
10 INVERSE 
20 PRINT “ABCDEy?” 
.30 FLASH 
40 PRINT “IJKMNY? 
50 NORMAL 
60 PRIN 人 “OPQRSy” 
70 BND 
4。 输 入 本 章 给 出 的 作 图 程序 ， 并 用 它 练习 ， 
(1 ) 怎样 删 去 一 行 ? 
2 ) 怎样 增加 一 行 ? 
(3 ) 用 LIST 进 行列 表 后 ， 怎 样 用 E3C 方 式 对 一 行 中 
的 某 些 字符 进行 修改 ， 插 入 和 删除 。 
5。 怎 样 把 程序 存 入 磁带? 如 果 你 有 磁带 机 的 话 ， 试 试 
看 。 
6。 如 果 要 把 程序 存 人 磁盘 ， 什 么 时 候 把 磁盘 上 的 DOS 
装 入 内 存 ? 怎 祥 把 程序 在 人 磁盘 ? 如 果 有 磁盘 驱动 器 的 话 ， 
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试 试看 。 

7。 试 着 在 屏幕 上 随便 打 一 些 汉 字 ， 体 会 如 何 用 拼 音 输 
入 方式 和 区 位 码 输 入 方式 输入 汉字 。 

8。 如 果 有 打印 机 ， 试 着 把 你 在 第 4 题 中 输入 的 程序 打 
革 出 来 。 
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三 章 ” 数 据 的 输入 与 输出 


要 使 用 计算 机 ， 必 须要 和 计算 机 交 换 信 息 。 把 要 进行 
处 理 的 数据 送 入 计算 机 里 ， 计 算 机 运行 以 后 ， 还 要 把 结果 输 
出 出 来 ，BASIC 语 言 中 的 输入 输出 语句 ， 就 是 为 人 和 计算 . 
机 交流 信息 用 的 ， 是 最 重要 ， 也 是 最 基本 的 语句 之 一 。 


第 一 节 ”赋值 语句 


赋值 进 名 不 是 输入 输出 语句 ， 它 是 在 程序 中 用 于 为 变量 

提供 数据 的 语句 ， 它 的 格式 是 ， 
。 行 号 LET ”变量 名 = 表达 式 
其 中 ， 

LET 是 保留 字 。 这 个 语句 的 功能 是 把 赋值 号 右边 表达 式 
的 值 (也 可 以 是 常量 、 变 量 、 函 数 ) ， 赋 给 左边 的 简单 变量 
或 下 标 变量 〈 见 第 六 章 第 一 节 ) ， 例 如 ， 

10 LET B=A 2+10.2#SIN (50)》 

20 LET D$= “BEIJING” 

30 LET E$=D$ 

以 上 都 是 合法 的 赋值 语句 。 

保留 字 LET 可 以 省 略 ， 上 面 各 语句 可 以 写成 ， 

10 B=AA2+10.2#SIN (50) 

20 D8$= “BEIJINGY2 

30 ES$=PD$ 
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“=?2 号 不 是 数学 上 的 等 号 ， 而 是 赋值 号 ， 它 的 意思 是 
把 “= ”号 右边 的 人 给予 “= ”左边 的 变量 。 例 如 ， 
A=A+1I 
在 数学 中 是 不 成 立 的 ， 在 BASIC 中 的 意思 就 是 变量 A 的 值 加 
于 鞋 再 送 回 变量 A。 
“= ”号 两 边 的 类 型 要 同时 是 数值 型 或 者 都 是 字符 串 
型 。 如 果 左 边 变 量 是 整 型 ， 则 右边 的 表达 式 值 就 含 去 小 数 送 
给 左边 的 变量 〈 当 然 数值 必须 在 整数 范围 以 内 ) ， 若 左边 是 
实 型 变量 ， 则 右 近 的 浆 型 变量 就 会 化 成 实数 赋 给 左边 变量 。 
车 左边 是 字符 串 型 变量 ， 右 边 也 必须 是 字符 串 型 。 否 则 将 出 
现 错误 ， 下 面 的 黑 值 语句 是 非法 的 : 
AS$=25.5 
A= 4yeS7? 
中 华 学 习 机 上 ， 中 文 BASIC， 可 以 对 字符 串 变 量 周 中 
文字 串 。 
AS$ = “中 华 学 习 机 ?” 
委任 何 一 个 数值 变量 未 被 赋值 时 ， 其 值 为 0 ， 任 何 一 个 字 
符 串 变量 未 被 赋值 时 ， 其 值 为 空 串 。 


第 二 节 ”打印 语句 


显示 器 和 打印 机 是 计算 机 的 主要 输出 设备 ， 用 于 显示 种 
打印 机 输出 的 语句 是 PRINT 语 句 。 它 的 格式 是 : 
站 行 号 PRINT 输出 项 
其 中 : 
PRINT 是 保留 字 ， 输 入 程序 时 可 以 用 ? 号 代 蔡 。 
输出 项 是 用 “: ”和 “，2?” 分隔 的 变量 或 表达 式 表 。 
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如 果 在 使 用 PRINT 语 名 以 前 ， 已 经 用 PR * 1 命令 指定 
了 打印 机 的 通道 ， 则 输出 项 中 各 项 的 值 就 从 打印 机 和 输出 ， 
同时 显示 在 屏幕 上 ， 否 则 就 只 在 异 幕 上 显示 。 
打印 语句 可 以 在 程序 中 使 用 ， 也 可 以 用 于 立即 执行 方 
式 ， 这 时 ， 如 同 使 用 计算 器 一 样 
]?3.5-30.5--20.6./ 
-47。6 
] ?SIN (51#3。14159/180) 。/ 
.777145488 
] ? COS (85#x3.14159/180) A2./ 
7.59634107 卫 _03 
PRIN 话 名 在 输出 实数 值 时 ， 对 于 不 同 的 输出 值 轴 不 同 
的 格式 输出 〈 设 X 为 被 输出 数值 》 ， 
(1) 若 xX<<0， 则 输出 的 第 一 个 字符 是 负 号 
(2 ) 车 |xlss999999999 的 整数 ， 则 x 做 为 整数 输出 
(3 ) 若 0.01 委 |x| 委 99999999.2， 则 X 用 小 数 输 出 。 
(4 ) 车 x 不 属于 (2)、(3) 模 况 ， 则 x 用 科学 计数 法 输 
出 : 
10 的 攻 
忆 “ 指 数值 
Sx。 X xy < 义 XXXBVTT 
咏 | 
号 9 位 有 效 数 字 ”指数 符号 
俺 如 : 7。59634107 了 -03 是 7.59632107 x 10-s 
-?.2456789 玉 +0.5 是 -3。2457789x105 
打印 话 句 答 出 的 是 变 悬 或 表达 式 的 值 ， 而 不 是 变量 名 本 
身 ， 如 果 想 要 输出 变量 名 和 表达 式 ， 要 用 引号 “《_ 2 把 它们 
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括 起 来 做 为 字符 量 输出 : 


5 REH C63261 

16 A=J.5 

20 B=16.2 

398 PRINT “A+B ”3A+B 
49 END 


JRUN 
At+B=13.3 


“A+B=” 做 为 字符 串 输出 ，13.7 是 A+B 的 值 ， 在 这 
可 以 看 出 ，PRINT 语 句 可 以 使 它 的 语句 体 中 的 表达 式 先 计 
算 ， 再 输出 结果 。 

利用 PRINT 语 名 的 字符 串 原样 照 印 功能 ， 可 以 在 文本 


方式 下 打印 图 案 。 


RENH C83262 

HOME 

VYTAB 4 

HTAB(13): FLASH: PRINT “2"”: NORNMAL 
PRINT TAB(12)3 /1 ;SPC(13) 和 7) 
PRINT TABC1iD) 3 /AI 

PRINT TAB(19]) 3 7/AAL” 

PRINT TAB(9); /AAALI” 

PRINT TAB(8) 3 7/ 和 AAAAT 

938 PRINT TAB(7) 1 /AAAAAT” 

1209 PRINT TAB(6) ;3 /AAA 有 AAAT” 

11@ PRINT TAB(6) ;”\ 有 AAAAAT 

1 2 PRINT TAB(7) 7 \ 入 AAAAT” 

138 PRINT TAB(8) ;7\AAAAT” 


生 台 和 区 让 SSS29 


146 PRINT 了 TAB(9)3”\AAAT 一 有” 

138 PRINT TAB(3) 人 3- 一 NAAL /HHHL” 
168 PRINT TAB(4) 和 ”MRNA ANAL /HHH/ 

178 PRINT TAB(5) 3 HHH----~- /HHH/， @@” 


180 PRINT TAB(6); ”HHHRHRHHHHHHG@Y : 3” 

198 PRINT “6XXG@xB0@HiHSgHHoHoQ 0 @- 

209 PRINT “Qtxag0086066880QQQaaaanlcanQ8teaay : ， 
YX 加 人 和” 

219 PRINT “88a838683833868338@aQ6aQQnQsGQ&c6EQGaQA 
aeeae- 

226 END 
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运行 一 下 这 个 程序 就 会 在 屏幕 上 显示 出 海上 月 夜行 船 
的 图 案 ， 船 枯 杆 上 的 信号 灯 还 一 闪 一 内 的 。 用 打印 机 打印 出 
来 的 图 案 如 下 : 


JRUN 
事 
/1 
/Al 
/AAT 
/AAA1 
/LAAAA1 
/AAAAA1 
/AAAAAAT 
NAAAAAAI1 
NAAAAAT 
NAAAA1 
NAAAL -&R 
4-- AAAL /HHHL 
AHHA ANAL VRHHH7 


AHHHHHHHHHHHa : 8 ? 
8%%XexeeeHHeeHHeHee 6 & 
aex8888888886888888888868aasaaax :> :Xeaa 
88eea8ea8aaaaaaaaeaaaaaaaaaaaasaaaaaa8a 


任何 一 个 程序 的 第 一 个 PRINT 语 名 都 是 从 屏幕 的 第 一 
列 或 是 打印 机 的 第 一 列 开始 输出 。 如 果 想 在 指定 位 置 上 输出 ， 
就 要 在 PRINT 语 句 中 使 用 分 隔 符 或 输出 定位 函数 。 

1。 分隔 符 

PRINT 语 句 的 各 输出 项 之 间 , 必须 用 “; ”号 式 “，? 
号 分 隔 。 在 最 后 一 个 输出 项 的 后 面 可 用 “; ”号 、“，? 号 
或 不 用 任何 符号 。 

中 华 学 习 机 的 显示 屏幕 ， 每 行 可 以 显示 40 个 字符 ， 从 左 
到 右 每 16 个 字符 为 一 个 输出 区 ， 革 一 16 列 为 第 一 区 ，17 一 32 
列 为 第 二 区 ，33 ~40 列 为 第 三 区 。 
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如 果 了 PRINTI 语 名 的 输出 项 之 后 使 用 “ ”号 ， 则 下 一 
个 输出 项 会 紧 接 着 前 一 个 输出 项 之 后 输出 ， 例 如 ， 


5 REM C83263 

10 4A=10.5 

26 8B=26 

306 PRINT A) 本 "3 "=”， 入 志 
48 END 


]RUN 
1G6 .5?20=210 


即使 各 输出 项 写 在 不 同 的 PRINT 语 名 中， 只 要 前 面 一 个 
PRINT 语 名 的 最 后 一 项 用 “; ”号 ， 下 一 个 PRINT 语 句 的 
第 一 项 也 接 在 前 面 一 项 之 后 输出 。 


例如 ， 
5 REH C63204 
1i06 A=10.5 
20  B=20 
3@ PRINT A) 京 " 3B2 = 
4@ “C=AsB 
350 PRINT C 
069 END 


JRUN 

19.526=2i0 

如 果 PRINT 语 名 的 得 出 项 之 后 使 用 “，?” 号 ， 则 下 一 
个 输出 项 会 从 下 一 个 区 的 第 一 个 位 置 开 始 输出 ， 当 一 个 区 旋 
不 下 时 ， 会 自动 顺延 到 下 一 个 输出 区 ， 若 第 三 个 输出 区 装 不 
下 时 ， 会 跳 到 下 一 行 的 第 一 个 区 输出 。 
例如 : 

5 REY C63265 


10 A=12.4: 8B=20: C=5.1 
28  D>=A+B+C 
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4 EeeAsBeC 
F=A/B/C 
586 PRINT “A= “3A Be ”Bi CiC。 
66 PRINT“D=”";D,"E<";E,"F=”;F 


78 END 

JRUN 

An12.4 B=26 C=<5.1 
b=37.5 E=1264.8 


F=.121568627 


如 果 要 使 其 输出 比较 紧密 ， 又 使 各 输出 项 之 间 有 空隙 ， 
可 以 根据 需要 加 入 一 些 空格 项 。 上 面 的 60 句 可 以 改 成 
60* PRINT scD =”;D，“ ;4kE=”， BE wx ”| 
wsF =”，F 
如 果 PRINT 语 句 的 最 后 一 个 输出 项 之 后 设 有 任何 符号 * 
则 下 一 个 PRINT 语 名 从 下 一 行 的 第 一 列 开 始 输出 ， 例 如 : 
5 REH C63266 
10 PRINT “3.5sX+2.5Y+2?3” 
20 X=2.7: Ya=4,.33 


398 PRINT 3.58X+2.53Y 
49 END 


jRUN 
,3.5sX42 58Y=? 
20.275 
在 PRINT 语 名 之 后 ， 可 以 没有 任何 一 个 输出 项 。 即 只 
有 一 个 PRINT， 这 时 只 产生 回 车 换行 动作 。 这 种 语句 常 党 
用 来 留 出 一 些 空 行 。 


5 REN C63267 

10 ASa'“This is a Cosptter 。” 
26 8S$> "bookK” 

38 ”CS=-LEFTS(AS,3)+”“+BS4+ 
46 PRINT AS 
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50 PRINT 
《6 PRINT CS 
36 END 


1RUN 
This is a Coaputer。 


This is a book， 


2。 定 位 函数 
在 PRINT 详 名 中 ， 可 以 使 用 TAB 函数 和 SPC 名 数 。 
(1)》3PGC 秽 数 ， 

SPC 函 数 的 格 交 是， 

SPC (算术 表达 式 ) 
表达 式 的 信 必 须 在 0 ~225 之 间 ， 若 有 小 数 则 售 去 。 

SPC 函 数 的 功能 是 以 上 一 次 输出 的 最 后 -- 个 字符 位 置 为 
基准 ， 跳 过 算术 表达 式 给 定 的 若干 空 沼 。 在 前 面 的 程序 C0- 
3202 中 40 行 显示 “/I” 之 后 跳 过 13 个 空格 显示 “) >。 

(2) TAB 负数 : 

TAB 函 数 的 格式 是 ， 

TAB (算术 表达 式 ) 
表达 式 值 必 须 在 0 ~255 之 间 , 若 有 小 数 则 合 去 。 

TAB 函数 的 功能 是 在 当前 行 上 以 最 左 列 〈 第 一 列 ) 为 基 
准 ， 在 算术 表达 式 所 确定 的 位 置 上 和 输出。 算术 玫 达 趟 的 值 者 
小 于 当前 输 岂 位 置 时 ，TAB 函 数 不 起 作用 。 例 如 ， 

10 PRINT TAB(5)3“ 沙 玉 玉 ?3 下 AB(15) ;多 水 来 求 ? 

20 PRINT TAB (10) ;4$$$27”3 TAB(5)3“$$$7 
执行 10 行 ， 在 第 5 列 开 始 输出 * #4k ， 又 从 第 5 列 输 
出 * # 关 。 执 行 20 行 时 ， 在 第 10 行 输出 $$$ 由 于 TABEB 数 不 
能 使 光标 式 打印 机 后 退 ， 所 以 遇 列 TAB( 5 ) 时 ， 不 起 作用 。 
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在 前 面 的 程序 203202 中 使 用 了 许多 TAB 函数， 对照 打 
印 出 的 图 案 ， 体 会 它 的 作用 。 


第 三 节 ”键盘 输入 语句 


从 键盘 上 输入 数据 ， 是 给 变量 提供 数据 的 另 一 种 方法 ， 
用 于 键盘 输入 的 语句 有 两 个 ,INPUT 和 GET。 


一 .INPUT 语 名 

INPUT 语 句 是 最 常用 的 键盘 输入 语句 ， 它 的 语句 格 
式 是 ， 
”符号 INPUT“ 提示 字 符 串 ”， 输 入 变量 表 : 

其 中 ， 

INPUT: 保留 字 。 


“提示 字符 患 ”， 提 示 字 符 申 可 有 可 无 ， 如 果 使 用 提示 
字符 串 ， 必 须 紧 眼 在 保留 字 INPUT 之 后 ,并 且 用 双 引号 
“， ”把握 示 字符 囊括 起 来 ， 该 字符 昌之 后 必须 是 分 号 “ij>。 
输入 变量 表 。 可 以 只 有 -个 变量 ， 也 可 以 有 多 个 变量 ， 
多 个 变量 之 间 必 须 用 “，?” 号 分 隔 。 

执行 INPUT 语 句 时， 如 果 有 提示 字符 串 ,, 册 在 屏 项 上 
显示 该 字符 串 ， 然 后 等 待 输 火 数据， 如 果 没 有 提示 字符 孝 ， 
则 显示 一 个 问号 ， 然 后 等 待 输入 。 

输入 数据 时 要 注意 以 下 几 点 ， 

1 。 输 入 的 数据 要 依次 财 给 INPUT 语 名 后面 的 各 个 变 
量 ， 所 以 输入 的 数据 类 型 要 和 相应 的 变量 相 一 致 。 输入 多 个 
数据 时 ， 各 数据 之 间 要 用 逗号 “，? 分 隔 。 用 回 车 键 〈 在 书 
中 用 .表示 ) 结束 输入 。 如 果 输 入 的 数据 少 于 输入 变量 表 中 
的 变量 个 数 ， 则 会 出 现 连续 的 问号 “? ? ”， 提 示 继 续 等 竺 


59 


键盘 输入 : 
10 INPUT A B%i C$，DS 


RUN 

?.30.5，5， 《ABC 性 ，Good/ 
也 可 以 按 下 面 方式 输入 : 

RUN 

? 30.5，5。/ 

? ? ABC./ 

? ? Good./) 

RUN 

? 30.5./ 

?? 5./ 

? ? ABC.， 

? ? Good./ 

2 。 输 入 的 数据 可 以 是 整数 ， 实 数 和 字符 串 ， 输 入 字符 
串 时 ， 可 以 省 去 引号 。 但 是 由 于 有 束 号 “，?” 是 输入 数据 的 分 
晴 符 ， 所 以 如 果 输 入 的 字符 溃 中 包含 有 逗号 “，? 时 ， 则 必 
须 用 引号 “ .” 括 起 来 ， 否 则 机 器 会 把 字符 串 中 的 逗号 误 认 
为 是 分 隔 符 。 
例如 ; 

10 _ INPUT AS$，B$ 

20 PRINT AS$，BS$ 

30 

RUN 

? AB，“CD，EF”./ 
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3。 在 中 文 BASIC 下 ， 可 以 用 中 文 进行 提示 ,也 可 以 向 
字符 串 变 量 中 输入 中 文 。 
例如 ， 

10 IJNPUT “输入 姓名 , 性别， 年龄: >” ， AS$,B$，C 


RUN 


输入 姓名 、 性 别 、 年 龄 ， 郭 平平 ， 女 ，15./ 
鲍 ， 求 学 生 部 小 平 六 门 课 的 总 分 ， 平 均 分 。 
301 


5 REN C93301.C 
19 INPUT “输入 学 号 ;姓名 和 ;AS: 
20 !NPUT“ 输 入 各 科 成 绩 :…;B1,82,B3,B4,B5,B6 
36 S-B14B29B3+B4+B5S+B6 
490 Y=1NT (S/6s10+0.5)7119 
5 PRINT “学 号 "入 ”2 奸 和 “人 总 分 ”六 “ 久 "平均 分 
69 PRINT 。 “;N; TAB(7);AS;， TAB(15)1S; TAB(22)3Y 
73 END 
JRUN 
输入 闻 叶 ,姓名 :1 郭 小 平 
输入 各 科 感 绩 :96,92,96,99,98,9S 
学 号 姓 名 总 分 平 约 分 
部 小 平 576 96 


二 、GET 语 名 

GET 语 名 也 是 键盘 输入 语句 ， 它 的 格式 是 ; 

行 号 GET 变量 名 
其 中 GET 是 保留 字 ， 它 后 面 只 能 有 一 个 变量 。 

执行 GET 语 句 时 ， 从 键盘 上 接受 一 位 数 宝 或 是 一 个 字符 
赋 给 变量 《在 中 文 方式 下 Ctrl-R,Ctn-Q,Gtrl- 工 ，ctrl-W 


除外 》 ， 输 入 的 字符 不 显示 在 屏幕 上 ， 并 且 输入 数据 后 不 用 
按 回 车 链 。 
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该 语句 不 能 加 提示 字 答 吝 * 第 本 身 也 没有 任何 提示 ， 要 
想 加 提示 可 用 PRINT 诺 多 ， 
10 PRINT “PASSWORD = 


40 GET 


这 个 语句 常用 “菜单 ”点 菜 输 入 或 是 保密 字 输 入 ， 以 后 
给 出 例子 。 


第 四 节 ”读数 语 名、 置 数 语 名 和 
区 所 并 语句 


我 们 已 学 过 用 赋值 语句 和 键盘 输入 语 句 为 变量 拖 供 数 
据 ， 当 数据 量 较 大 时 ， 使 用 这 两 种 方法 就 很 不 方便 ， 这 时 可 
以 使 用 读数 语句 、 置 数 语句 和 铁 复数 据 区 语句 。 

一 。 读数 语句 和 时 妆 语 名 

读数 语句 和 置 数 语句 的 格式 是 

L， READ 输入 变量 志 


Lk DATA 数据 表 
其 中 

LI1。Lk 是 语句 标号 

输入 变量 表 中 各 变量 之 间 和 数据 表 中 的 各 数据 之 间 用 逗 
号 “2 分隔 ，READD 语 名 和 DATA 语 名 未 乱 不 能 有 逼 导 。， 

READ 语 句 是 执行 语句,，DATA 语 名 是 非 执 行 语 每 ， 它 
所 提供 的 数据 被 依次 放 人 一 个 区 域 。 计 算 机 为 这 一 区 域 设置 
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向 的 数据 依次 冉 给 READ 语 名 中 的 每 个 变量 。 例 如 ， 
5 RENH C893401 
10 READ 和 ,B,C,D,E,F 
206 PRINT ABC,D,E,F 
386 DATA 3.5,.+5.1.,0.4.7,3.6,3.1 


4 ENB 
JRUN 

3.5 -5.1 @ 
4.7 3.6 本 民 


使 用 READ 语 句 和 DATA 语 名 注意 以 下 几 点 : 

1 。READ 语 名 是 执行 语 名 ， 而 DATA 语 名 只 是 为 RE 
AD 语句 查 供 数据 ， 因 此 ， 程 序 中 有 READ 语 名 ， 必 须要 有 
相应 的 DATA 语 句 ， 但 是 有 DATA 语 名 ， 却 可 以 没有 READ 
语句 ， 只 是 这 时 的 DATA 语 名 在 程序 中 是 无 用 的 。 

2 。READ 语 名 中 变量 的 个 数 ， 一 般 不 少 于 DATA 话 名 
中 数据 的 个 数 ， 否 则 某 些 变量 将 得 不 到 数据 。 

3 。READ 语 名 中 变量 的 类 型 要 和 DATA 请 中 的 数据 类 
型 要 依 相 对 应 。DATA 语 名 中 的 字符 训 常 量 可 以 省 去 引号 ， 
但 是 ， 如 果 字 符 串 中 有 有 逼 号 “。”， 或 是 第 一 个 字符 是 空格 
了 时， 则 必须 用 引号 把 这 个 字符 串 插 起 来 。 

例如 ， 前 面 求学 生 部 小 平 五 门 课 总 分 和 平均 分 的 程序 可 
以 用 READ 语 句 和 DATA 语 名 写成 如 下 形式 ， 


3 REN C93402-1.C 

10 READ N,AS,B1,82,B83,84,85,86 

30 S=B17B2+B3+B4+B5+B6 

40 y=INT(S/os10+0.5)716 

50 PRINT“ 学 号 六 “让 姓名 "和 “条 总 从 "3 “和平 艾 分 
60 PRINT ” “5N3TAB(7)3ASITAB(I16)3S3TAB(23)37 

78 DATA 1，, 郭 小 平 ,96,92,96,99,95,98 

86 END 
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JR - 
二 区 和 总 个” 军 和 分 
】 小 于 ”5S76 96 


4 。 一 个 READ 语 句 ， 只 要 不 改变 输入 变量 表 中 各 个 变 
量 的 顺序 ， 可 以 把 它 分 开 写 成 几 个 REAP 语 句 ， 一 个 DATA 
语句 ， 只 要 不 改变 数据 表 中 各 个 数据 的 顺序 ， 也 同样 可 以 把 
它 分 开 写成 若干 个 DATA 语 句 。 并 且 DATA 语 名 可 以 出 现 
在 READ 语 名 的 前面 或 后 面 的 任何 地 方 。 上 面 的 程序 还 可 以 
写成 以 下 形式 : 

5 REi C83402-2.C 

tG READ N,AS 

28 READ B1,B2,B3,B4,8B5,。B6 

36 SB14+B2+B3+B4+B5trB6 

4 V=1NT(S/6sl0t9. 0 

56 PRINT“ 学 号 -;” “入 姓名 -iT 让 总 分 "六 “和 于 均 分 ” 
60 PRINT 和 N TAB(7) ;AS TAB(16); Si TAB(23)7Y 


76 DATA 1, 郭 小 平 ,96,92,96,99,95,98 
-9 END， 


JRUN 
学 号 姥 名 总 分 ,平均 分 
1 。 莫 小 平 ”576 和 6 


还 可 以 写成 


6 RE :C93402-3.C 
.6 READ N,AS,B1,82,BI,B4,B5,8B6 
38 S=31+82+B3+B4+B5+B6 
2 VY=INT(S/6z10+0.5)7119 。 
PRINT “学 号 ” “; 姓 名 “人 总 分 "和 和 要 
66 PRINT ” “3N; TAB(7)3;AS; TAB(16); 5; Ti 作 
78 DATA 1, 郭 小 平 
86 DATA 96,92,96,99,98,95 
968 ENP 


JRUN 
学 寻 寻 名 总 分 平均 分 
1 郭 小 说 。” 576 96 
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和 RE CO3402-4.C 

i0 DATA 1 ,部 小 平 

26 DATA 96 ,92,96,99 ,98,95 

30 READ N,AS,B1,82,83,84,85,86 

35 S=B1+B2+B3+B4+B54+B6 

40 V=[NT(S/6s18+0， 571 

5 PRINT“ 学 号 ";”“ 记 姓 ; 总 分 ”1; ? 罕 规 
66 PRINT“ 1N TAB(7); AS TABE15 2S5 TAB(22) )， 
79 END 


1RUN 
学 号 多 名 总 分 平均 从 

1 训 小 半 576 96 
它们 运行 的 结果 都 一 样 。 

二 、 恢 复数 据 区 语 名 

如 果 用 READ 语句 把 一 批 数 据 赋 给 某 些 变 量 以 后 。 同 
样 一 批 数据 又 要 赋 给 其 它 变量 、 就 可 以 使 用 局 复数 据 区 语 名 
RESTORE、 而 不 必 再 使 用 DATA 语 句 把 数据 重新 再 写 一 
遍 。 

恢复 数据 区 语句 的 格式 是 : 

行 号 “RESTORE 

这 全 语句 只 有 语句 定义 符 、 没 有 语 知 体 。 

我 们 在 前 桓 已 经 说 过 、BASIC 程序 中 的 各 DATA 请 名 
提供 的 数据 都 被 依次 放 入 数据 区 、 计 算 机 为 这 个 数据 区 设置 
了 一 个 指针 ， 当 给 一 个 变量 读 取 数据 时 , 问 将 指针 当前 指向 
的 数据 赋 给 该 变量 ， 然 后 指针 向 后 移 指向 下 一 个 数据 。 而 当 
程序 执行 到 RESTORE 语句 时 ， 数 据 区 的 指 针 就 会 退回 到 
数据 区 的 开头 ， 指 向 程序 中 第 一 个 DATA 语句 中 的 第 一 个 
数据 。 这 样 ，RESTORE 语 名 之 后 的 READ 请 名 将 重新 从 数 
据 区 的 开头 依次 读 取 数据 。 DATD 数 据 多 中 前 数据 重复 使 用 
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的 次 数 越 多 ，RESTORE 语 句 的 优越 性 就 越 明显 。 
例如 ， 下 面 的 程序 使 得 A、B、C 和 D、E、F， 以 及 G、 互 、 
I 取 得 的 每 次 值 都 一 样 。 


5 REM C63463 
1@ READ A,B,C 

26 RESTORE 

36 READ D,E 

49 READ F 

56 RESTORE 

69 READ G,H ,了 

76 PRINT A,B,C 

86 PRINT D,E,F 

98 PRINT.G,H,1 

166 DATA 19.3,5,9,3.1 
119 END 


]RUN 
190.3 
10,3 
10.3 


cn eeh 
浊 司 


数据 指针 是 挨个 向 后 移动 的 ， 如 果 数 据 区 中 的 某 些 数 据 
在 某 一 段 的 读 入 时 没有 什么 使 用 价值 ， 可 以 在 READ 语 名 中 
虚设 一 些 变量 ， 来 读 那 些 无 用 的 数据 ， 从 而 使 数据 指针 跳 过 
它们 ， 这 种 方法 叫做 假 读 。 
例如 ， 有 6 个 数据 1，2，3，4，5 和 6， 按 下 表 来 
冉 给 各 个 变量 : 
1284586 
AB CDE 
FEGH L 
M  NPQR 
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5 REM C034043 
,省 READ AB,X,C GEE 
28 RESTORE 

3230 READ X,E,G, 和 ,X,L 
48 RESTORE 

59 READ MXN,P,n,R 
bu PRINT A3B83C3DjiE 
T9 PRINT F;5G3 

80 PRINT MY NBYQSR 
90 DATA 1,2,3,4,5,b 
168 END 


3D 
包 
1Q 


]RURN 
124356 
2348 
13456 
在 这 个 程序 中 x 就 是 一 个 虚设 的 变量 ， 在 程序 中 它 的 值 没 有 
任何 用 处 ， 它 只 是 起 了 使 数据 区 指针 向 后 移 一 个 数据 的 作 
用 。 
三 、 为 变 鄙 提供 数据 的 几 荐 语句 的 比较 
共有 四 种 为 变节 提 供 数 据 的 语 铝 ， LETT、INPUT、 
GET、READ-DATA。 其 中 LET 和 READ-DATA 语 名 
需要 把 数据 写 在 程序 中 ， 而 INPUT 和 GET 语 悦 则 要 求 从 键 
盘 上 输入 数据 ， 使 用 INPUT 语 名 从 键盘 输入 的 信息 显 示 在 
屏幕 上 ， 而 使 用 GET 语 句 从 键盘 输入 的 信息 不 显示 在 屏幕 
上 。 
LET 语 句 是 变量 从 表达 式 中 取得 数 据 的 唯一 方法 ， 一 
般 用 于 程序 中 间 更 改变 量 中 的 数据 。 
INPUT 语 名 的 最 大 特点 是 从 键盘 输入 数据 ; 并 且 把 数 
据 显 示 在 屏幕 上 。 用 INPUT 语 句 提供 数据 ， 不 必 对 程 序 做 
任何 修改 。 
GE 了 语句 的 最 大 特点 是 共 键 盘 上 只 接受 一 个 字符 并 且 不 
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显示 在 屏幕 上 , 因此 常常 用 于 “点 菜单 ?和 “保密 字 ” 的 输入 。 

READ-DATA 语 名 适用 大 量 数据 的 赋 秆 ，DATA 诸 名 
把 大 量 原始 数据 集中 保留 在 程序 中 ， 便 于 核对 、 修 改 、 替 换 
和 保留 原始 数据 。 


第 五 节 “中文 BASIC 程 序 的 打印 输出 


在 中 文 BASIC 工 作 方式 下 ， 用 前 面 所 讲 过 的 办 法 要 把 
带 有 中 文 的 程序 和 运行 结果 中 的 汉字 用 行 式 打印 机 打印 出 来 
是 办 不 到 的 。 必 须 对 存 贮 器 中 的 特定 单元 进行 修改 ,所 以 在 这 
节 首先 介绍 两 个 直 捷 读 写 内 存单 元 的 BASIC 语句 和 函数 。 

1 。 向 内 看 单元 写 数 : 

RORKE xx，7 
其 中 ，x 是 内 存 地 址 ，- 65535<x<<65585 
7 是 十 进 制 数值 

该 语 名 的 功能 是 把 十 进 制 数值 7 在 及 简 天 传 表示 的 内 存 
地 址 单元 中 去 。 它 可 以 在 立即 执行 方式 下 使 用 ， 也 可 以 在 前 
面 加 上 适当 的 行 号 写 在 程序 中 。 

了 P 了 BE 政 5《 开 ) 

其 中 区 是 内 存 地 址 ， 可 以 用 数值 常数 ， 数 值 变量 和 算术 
表达 式 给 出 ，x 的 下 值 范围 是 - 65535<< 工 人 65535。 

PEEK ( x ) 卫 数 这 回 册 并 值 表示 的 内 存 地 址 单 元 中 的 
内 容 ， 函 数值 用 十 进 制 表 示 。 使 用 方法 和 其 他 函数 根 同 。 

”下面 介绍 如 何 使 用 行 式 打印 机 打印 忠文 BASIC. 程 序 和 
数据 。 

中 华 学 习 机 使 用 万 针 打 氏 机 ， 汉 字 输 出 采用 点 陈 打 印 ， 
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每 行 字 要 打印 两 次 完成 。 

一 、 设 置 打 印 方式 

开机 时 ， 打 印 机 呈 断 开 状 态 。 要 进行 汉字 输出 打印 ， 必 
须 首 先 用 POKE 语 句 接 通 打 印 机 并 设置 打印 方式 。 

POKE 1659， 世 

当 n = 0 时 ， 断 开打 印 机 ， 即 退出 打印 方式 ， 开 机 时 
nD=0。 

当 n = 工 ~15 时 ， 接 遂 打 印 机 ， 同 时 设置 15 种 字 型 中 的 
n 号 字 型 。 

当 15< 届 <<255 时 ， 以 16 为 模 取 值 。 即 取 了 除 以 16 所 得 
的 余数 为 为 器 值 。 

打印 的 15 种 字体 如 下 :，(〈zP 依次 等 于 1 ~15 ) 。 


1 一 4 号 汉字 高 度 和 ASCII 码 字 答 一 样 ， 5 ~18 号 汉字 
高 度 是 1 ~ 4 号 汉字 的 两 倍 。 而 1 号 和 8 号 汉字 分 别 是 
ASCI 字 符 宽 度 的 两 倍 ，2 ~ 4 号 及 6'15 号 汉字 分 别 为 
前 一 号 汉字 宽度 的 两 伴 。 

二 、 设 置 字 和 间距 


-开机 时 ， 字 间距 自动 设 为 2， 可 以 用 PORKE 改变 字 间 
距 : 


POK 下 1787， 了 


为 字 间距 点 的 个 数 ，0 委 中 和 255。 下 面 的 小 程 序 给 


出 的 字 间 距 依次 芒 n = 1y， 6，11，16，21，26，31，36， 
41，46。 每 个 字 是 用 2 号 字 打 印 的 
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5 REH C094602,(C 


16 FOR N=1 T0 58 STEP 5 
20 POKE 1787N 


38 PRINT "振兴 中 华 ， 


40 NEXT AN 

50 END 

1RUN 

振兴 中 华 

振兴 中 华 

棕 兴 中 华 

振 兴 中 华 

振 闪 中 全 

振 兴 中 人 

振 兴 中 人 

气 兴 中 华 
振 兴 中 化 
振 兴 证 华 


三 、 设 置 行 间距 
开机 时 ， 行 间距 自动 设置 为 2 ， 用 POKE 语 名 改变 行 间 


距 。 
POKE 1915，m 
n 为 行 间距 点 的 个 数 ，0 委 a 委 255， 下 面 小 程序 打印 


出 的 各 行 之 间 间 距 分 别 为 6，11，16，21，26，31，36， 
41，46 个 点 。 


5 REH C04603,.C 
10 FOR N=!1 T0 56 3STEP 5 
28 POME 1915,N 


-38 PRINT“ 握 兴 中 华 


4 NEXT N 
58 END 


]RUN 

控 兴 中 华 
振兴 中 华 
握 兴 中华 
气 兴 中 华 


振兴 中 华 


探 兴 中 华 
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气 兴 中 华 


四 、 设 置 行 宽 

开机 时 ， 行 宽 自 动 设 置 为 40， 印 一 行 打印 40 个 汉字 ， 如 
果 使 用 1 号 、5 号 以 外 的 汉字 ， 那 么 80 列 打印 机 会 打 不 下 40 
个 汉字 ， 必 须 用 POKE 语 名 重新 设置 行 宽 。 

POKE 2043，m 

n 是 每 行 打印 汉字 的 个 数 ， 原 则 上 0 科 nm 委 255， 但 是 
受 打印 机 所 限 ， 每 行 打印 不 下 那么 多 汉字 。 到 底 每 行 设置 n 
为 用， 要 根据 打印 的 字号 和 打印 机 的 类 型 而 定 。 


习题 三 
1 。 下 列 语句 有 哪些 错误 并 改正 : 
(17LET A=5，B=383，C=4 
(2 )LET X=Y=3.2 
(3)LET A=“GOOD”:LET ,3$=GOOD 
(4) READ A、B、C、D 
(5 )INPUT X， Y， Z 
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3 4， 一 2 AS 


《7 )READ A$，B，C$，D 
DATA “BOOK2” ，6 ，68，1987。7 .15 
《8 )INPUT 《4X =2 和 X，4y=2; 7 
2 。 写 出 下 列 程序 的 运行 结果 并 运行 程序 核对 。 
《1 )10LET X=2Ar- 
20 LET Y =XX 
30 LET 2Z =Y 
40 PRINT 2Z 
50 了 END 
《2 )10 READ A，B，C 
15 RESTORE 
20 DATA 1，2，3，4，0 
30 READ D，E，RER，G， 
40 RESTORE 
50 DATA 5，6，7，8 
60 READ I，J， 开 ，L 
70 DATA 1，2，8 
80 READ M，N，E，Q，R，S， 工 
90 PRINT A; BC， D;， 卫 ，F，G;HI;I;J 
100 PRINT KK L，M，N，P;Q;R;S; 工 
110 END 


3 。 已 知 长 方形 长 为 2.2cm， 宽 4.7cm， 写 一 个 小 程序 
求 长 方形 的 周 长 和 面积 。 
4 和 4。 已 知 直 角 三 角形 一 锐角 为 37“， 直 角 边 为 16cm 写 一 
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个 小 程序 计算 该 三 角形 面积 以 及 它 的 外 接 加 面积 
5 。 分 别 用 READ /DATA 语 句 和 INPUT 语 句 编 写 计 

算 你 的 考试 成 绩 的 总 分 和 平均 分 的 程序 ， 按 下 列 格式 输出 ， 
学 号 | 姓 名 | 和 总 分 | 平均 分 


和 如果 有 行 式 打印 机 ， 试 着 打印 出 来 〈 画 表格 采 用 区 位 码 输 
入 ) 
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第 四 章 “分支 程序 设计 


第 三 章 出 现 的 程序 是 从 头 到 尾 按 行 号 顺序 执行 的 ， 这 史 
蜂 序 程序 。 从 这 章 开始 ， 我 们 要 学 习 一 些 具 有“ 判断” 能力 
和 改变 程序 顺序 走向 的 语句 ， 并 通过 实例 介绍 一 些 程序 设计 
的 技巧 。 为 了 避免 程序 中 出 现 逻辑 性 错误 ， 并 使 这 类 程序 便 
于 阅读 ， 在 编制 程序 时 ， 要 首先 画 出 程序 流 径 图 。 


第 一 节 “程序 流程 图 


程序 荡 程 图 是 由 一 组 特定 图 形 符号 组 成 的 ， 用 来 表示 计 
算 机 先 做 什么， 后 做 什么 。 目 前 所 使 用 的 图 型 符 号 大 同 小 
异 ， 我 们 采用 下 述 一 组 图 型 符号 ( 见 图 4-1 )》 
我 们 在 第 一 章 的 第 一 睹 中 就 是 用 一 个 流程 图 来 说 明 用 高 
级 语言 解 题 的 基本 步 又 ( 见 图 1- 3 ) 
可 各 由 = - 般 规 则 ， 
。 程序 流向 一 般 采 用 自 上 而 下 ， 从 左 到 右 的 方向 ， 沪 
有 
。 图 框 中 要 有 说 明 ， 可 以 用 语言 ( 中文、 英文、 数字 
程序 设计 语言 ) 进行 注释 。 
8 。 特 别 要 注意 标注 判断 找 的 条 件 ， 它 的 出 口 处 一 定 标 
明 “ 是 ” 或 “ 否 ” ， 或 标明 “<Yesy 或 “No 〈 也 可 简写 
6 人 凡 和 46《N2 》 
画 流程 图 要 以 数字 模型 为 依据 ， 对 于 吉 复 杂 的 程序 ， 村 
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一 一 人 表示 程 汉 的 开始 或 终止 


| | 处 理 框 ， 表示 运算 和 处 理 功能 
判断 棋 ， 根 据 条 件 决定 程序 走向 


| 一 一 流向 线 ， 表 示 程 序 走向 
连接 圈 ， 标 有 同一 字母 或 数字 的 
7 连接 圈 ， 表 明 它 们 应 连 
接 在 -- 起 


图 4-1 程序 流程 图 符号 


先 画 出 粗 框图 ， 再 由 粗 框图 画 出 细 杠 图。 流程 图 画 好 后 要 反 
复核 对 ， 逻 辑 上 没有 任何 错误 后 ， 再 根据 框图 写 出 程序 。 以 
后 我 们 将 用 例子 逐步 加 以 说 明 。 


二 节 ”无条件 转 移 语句 


第 三 章 我 们 已 看 到 求 一 个 学 生 3 门 课 考 试 总 分 和 平均 分 
的 程序 ， 如 果 要 求 若干 个 学 生 每 个 学 生 的 总 分 和 平均 分 ， 只 
要 增加 一 名 GOTO 10 就 能 反复 执行 这 眉 程序 ， 从 而 得 到 每 


7 人 


《5 


-个 学 生 的 总 分 和 平 为 分 〈 程序 流程 图 如 图 4-2 ) 。 


5 REM C64291 

16 1NPUT N,A,B,C 

26 。S=A+B+C 

36 0D=1NT(S/3s10+0.5)/18 
4 PRINT N,S,D 

56 60T0 19 

60 END 


(了 闪 )》 
输入 学 号 与 三 科 分 数 ] 


]RUN 
?1,98,86,94 


1 278 99 
?2,98,95,97 
2 298 96.7 
?3,85,92,79 
3 256 85.3 
? 
图 4-2 6C04201 流 程 图 
GOTO 语 名 的 格式 : 


行 号 GOTO 工 ( 工 是 本 程序 的 行 号 ) 

这 个 语句 的 功能 是 无 条 件 地 转向 它 后 面 给 出 的 行 号 继续 
执行 。 

在 上 述 例子 中 ， 你 会 发 现 当 你 已 全 部 送 完成 绩 后 ， 仍 会 
返回 执行 第 10 句 让 你 输入 数据 ， 机 器 不 能 自 动 出 现 BASIC 
提示 符 了 ， 这 是 由 于 机 器 没完 没 了 地 执行 10 一 50 句 ， 这 种 现 
象 叫 死 循环 。 用 Ctrl-C 键 可 以 退出 死 循 环 。 

GOTO 语 名 不 是 一 个 理想 的 语句 ， 在 程序 中 使 用 多 了 ， 
会 使 程序 杂乱 如 麻 ， 今 后 在 程序 设计 中 ， 要 尽量 少 用 GOTO: 
语句 。 
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三 节 ”条件 转移 语句 


对 于 求学 生 总 分 和 平均 分 的 程序 ， 我 们 可 以 用 下 述 办 法 
避免 程序 出 现 死 循 环 ( 见 图 4- 3 ) 我 们 都 知道 学 号 N 都 是 
大 于 0 的 数 ， 当 所 有 学 生 的 成 绩 都 计算 完 后 ， 可 以 送 入 一 个 
负数 给 N， 通 过 判断 N 是 否 小 于 零 决 定 程序 是 否 结束 执行 。 
写成 相应 程序 如 下 。 


5 REN C64381 

18 1NPUT N,A,B,C 

15 IF NB THEN 6 

28  S=A+8B+C 

36 。D=1NT(S/3s1639,5)716 
40 PRINT N,S,D 


50 060T0 18 

0 END 

]RUN 

21,94,82,86 

1 262 87.3 

32,88,94,98 

2 272 96.7 
3-2,6,9,8 


图 4-8 《04301 流 程 图 


程序 中 的 IE N<0 THEN 60 就 是 一 个 条 件 转 移 语 名 。 
一 、 条 性 转移 语句 揭 铬 式 和 执行 方式 

中 华 学 习 机 BASIC 的 条 件 转移 语句 的 基本 格式 是 ， 
行 号 IF 表达 式 THEN 语句 : 语句 ……" 语 句 


7 了 8 


其 中 ， 

表达 式 ， 可 以 是 算术 表达 式 、 字 符 串 表达 式 ， 关 系 表 达 
式 和 逻辑 表达 式 。 

THEN 后 面 的 语句 ， 叫 做 THEN 子 句 ， 它 们 可 以 是 用 
分 号 分隔 的 多 个 语句 。 

条 体 逐 包 的 执行 方式 是 ， 首 先 计算 出 表达 式 的 值 ， 若 者 
达 式 值 非 0 ， 则 执行 THEN 子 句 ， 如 果子 句 中 没有 使 程序 转 
向 的 语句 ， 执 行 完 子 句 后 就 执行 该 语句 的 后 续 语句 ， 著 表达 
趟 值 为 0 ， 则 跳 过 THEN 子 句 ， 执 行 该 语句 的 后 续 语句 ( 见 
图 4-4(a)) 

如 黑 条 件 转移 语句 是 如 下 形式 : 

行 号 IF 表达 式 THEN GOTO 工 ( 工 为 本 程序 的 行 号 ) 

对 于 这 种 形式 中 华 学 习 机 允 许 省 略 保留 字 THEN 和 
GOTO 中 的 任何 一 个 ， 可 以 写成 以 下 两 种 形式 中 的 任何 一 
种 形式 

行 号 IF 表达 式 THEN 工 
或 ” 行 号 IF 表达 式 GOTO 


(b) 


图 4-4 条 件 语句 流程 图 
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其 流程 图 见 图 4-4 (by》 
如 果 THEN 子 句 中 有 多 个 子 句 . 并 有 旦 最 后 一 个 是 
GOTO 话 名 ， 
行 号 IF 表达 式 THEN 语句 ， 语 句 ，……，GOTOL 
这 时 如 果 表 达 式 值 非 0 ， 依 次 执 行 每 个 THEN 子 句 ， 
执行 到 GOTO 工时 就 转 去 执行 行 号 为 二 的 程序 行 ， 车 表 达 : 
式 值 为 0 ， 则 执行 该 语句 的 后 续 语句 。 
二 、 关 于 条 件 转 欧 语句 的 几 点 说 明 
1 。 表 达 式 
条 件 转移 语句 中 的 表达 式 ， 可 以 是 算术 表达 式 ， 字 符 串 
表达 式 ， 也 可 以 是 关系 表达 式 或 逻辑 表达 式 。 
(1 ) 算术 表达 式 其 结果 的 绝对 值 过 2.93873 了 E-39 时 ,其 
秆 为 0。 
(2 ) 字符 串 表 达 式 的 结果 为 空 昌 时 ， 其 值 为 0 。 
〈 3 ) 条 件 玫 达 式 中 的 条 件 不 成 立时 ， 其 值 为 0.。 
这 是 最 常用 ， 也 是 最 一 般 的 使 用 方法 ， 今 后 我 们 所 用 的 例子 
绝 大 多 数 都 是 使 用 条 件 表 达 式 。 
〈 4.) 逻辑 表达 式 的 值 取决 于 逻辑 运算 结果 。 
2 。 条 件 转移 语句 可 以 谷 套 。THEN 子 句 也 可 以 是 条 
件 语 句 ， 例如 ， 


150 IF Ad$=“XY?” THEN IF EG=15 
GOTO 170 
160 PRINT “90”:GOTO 180 


不 难看 出 ， 只 有 当 两 个 控制 条 件 碎 8$ = “XY2?” 、EG =15 
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都 满足 时 ， 才 转向 执行 170 行 ， 任 一 条 件 不 满 时 就 顺序 执行 
160 行 ， 所 以 150 行 也 可 写成 : 

150 JRF B$= “XY27 AND:EG=15 GOTG 170 

这 种 写法 更 直观 些 。 

3 。 如 果 IF 语 句 中 的 表达 式 值 为 0 ， 本 行 的 后 结语 句 不 
再 执行 ， 所 以 在 一 个 程序 行 中 不 能 有 两 个 以 上 并 立 的 下 请 
外 ， 例 如 : 

100 IF A<0 THEN 200,， IF A>0 THEN 300 

解释 程序 将 给 出 错误 。 应 当 写 成 两 行 ， 

100 JIF A<0 THEN 200 

110 IF A> 0 THEN 300 

和 。 在 中 华 学 习 机 上 使 用 IF 语 旬 时 :要 避免 在 保留 字 
THEN 的 左 邻 字符 为 字母 A 的 情况 。 

例如 ; 

JE X=ATHEN.… 

IF AxB<INT(A)AB+C 关 A THEN。。 

都 是 不 允许 的 ， 因 为 解释 程序 会 把 AT 作为 BASIC 中 的 
保留 字 来 对 待 。 可 以 把 它们 写成 下 述 形 式 : 

IF A=X THEN.……。 

IF AxB<INT(A)AB+AKC THEN.。。。 

5 。 在 IF 语句 中 一 般 不 用 等 号 直接 判别 两 个 算术 表达 式 
值 是 否 相 等 ， 而 是 判别 这 两 个 算术 表达 式 的 差 的 绝对 值 是 否 
小 于 一 个 极 小 的 数 。 

例如 : 3 的 4 次 方 等 于 81， 但 是 用 下 面 的 程序 求 3 的 多 
少 次 方 等 于 81 是 办 不 到 的 ， 
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5 REN C64303 
A=8 


28 8B=3AA 

38 1R 8=81 THEN 68 

4 他， 良 =AY 1 

596 6G0T0 29 

6 PRINT “3A"3A3==8ln" 
END 


了 RSN 


20YERFLOU ERROR IN 28 


各 序 运行 的 结果 发 生 了 溢出 错误 。 这 是 因为 机 器 内 部 是 
用 二 进 制 的 浮 点 数 进行 运算 的 ， 计 算 结 果 往 往 是 近似 值 ， 比 
胡 383 人 4 运算 结果 是 81,0000001， 而 不 是 31， 所 以 B = 81 的 
歼 件 永远 不 能 满足 ， 程 序 一 直 运 行 到 B 的 值 超出 机 器 所 人 许 
的 最 大 值 机 产 生 溢出 错误 为 止 。 

如 果 我 们 把 程序 中 的 30 行 改写 成 以 下 形式 ， 

30 IF ABS (3B -81)<0.0000001 THEN 60 
程序 就 可 以 正确 运行 了 ， 


5 REN C64383-~1 

i@9 A=9 

29 Be3AA 

39 IF ABS(B-81)<9.0006801 THEN 58 
4 罗 AmRh+l 

59 60T0.22 

的 PRINT ， 0 3 =31” 

了 全 ,END 


TBN 
3A4=BL 


类 似 的 情况 很 多 ， 所 以 在 使 用 判别 式 时 ， 不 要 轻易 使 用 
竺 号 或 是 不 等 号 ， 这 点 要 特别 注意 。 
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三 、 条 件 转移 语句 形成 的 凡 种 分 支 形 或 

使 用 条 件 转移 语句 可 以 形成 各 种 不 同 的 分 支 形式 ， 下 面 
讨论 三 种 最 常用 的 形式 ， 

1。 跳 跃 分 支 

所 谓 跳 跃 分 支 ， 是 若 IF 语 句 中 的 表达 式 值 为 0， 则 执 
行 后 读 语 句 ， 藻 玫 达 式 值 韭 0 ， 则 跳 过 一 个 或 多 个 语 名 而 执 
行 分 支 后 面 共 同 的 语句 。 

例如 ， 从 键盘 输入 一 个 数 设 其 为 从, 当 基 盖 0 时 计算 了 = 


.7 记 ,着 x 据 0 则 结束 。 流 程 图 〈 图 4 - 5 ) 和 程序 如 下 ， 


《 开 哈 ) 
5 REH C04394 -一 
186 ITNPUT X [和 xX ] 


28 IF XK=@ TBN SS 
989 Ye=1/SQRICXA 
46 PRINT XY 


56 END 
1RUN 
37.7 
Ts7 
图 4-50404304 流 程 图 
2。 闪 列 分 支 


不 记 下 语句 中 表达 式 的 值 为 0 与 非 ， 都 分 别 执行 不 同 的 
操作 。 

例如 : 从 键盘 输入 任意 一 公元 年 号 ， 判 断 这 一 年 是 润 生 
否 ， 车 是 润 年 则 打印 Yes， 不 是 润 年 则 打印 NO。 
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我 们 知道 润 年 是 这 样 规定 的 : 整 百 的 年 号 必须 是 400 的 
整 倍数 才 是 润 年 ， 不 是 整 百 的 年 号 是 4 的 整 倍数 也 是 润 年。 

在 程序 中 通常 用 INT 函 数 来 判定 数 的 整除 ， 如 果 N/3 = 
INT (CN/3) 则 说 明 N 是 3 的 整 倍 数 , 若 N/3()INTCN/3)， 
那么 N 肯 定 不 是 8 的 整 倍数 。 这 样 ， 可 以 得 到 这 样 一 个 计算 
润 年 的 数学 表达 式 ; 

润 年 =NV100()INTCN/100)AND NV4=INTCON/4) 

OR NV400=INTINV/400) 

由 这 个 数字 宰 型 可 以 画 出 流 程 图 〈( 见 图 4 - 6 ) 由 流程 

手写 出 如 下 程序 : 


5 .REN C04365 
19 INPUT 
29 IF NC=9 0R NINT(N) THEN 76 
38 JIF N/166C>1INT(N/186) AND N/4=!NT(N/4) 
0R N/469=1NT(N/400) THEN 69 
49 PRINT “N="3N， NO" 
56 600T0 78 
8 PRINT “N=”";N， "YES" 
79 END 
有 0 


YES 


3。 循 环 分 支 

某 些 程序 中 有 些 步骤 在 一 定 条 件 平 要 重复 执行 多 次 。 冉 
IF 语句 构成 这 种 循环 的 叫 循环 分 支 。 在 前 面 看 到 的 求学 习 总 
分 和 平均 分 的 程序 就 是 一 个 循环 分 支 的 例子 ， 下 面 再 看 一 个 
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图 4- 65C04304 流 程 图 


100 
例子 。 例如 ， 求 了 1i 三 汪 十 2 十 3 十 。eese 十 100 
了 一 1 


观察 上 述 公 式 可 以 看 出 ， 只 要 设 一 个 变量 P 做 为 计数 
器 ， 每 次 增加 工 后 与 存放 累加 和 的 变量 S 相 加 ， 直到 卫 计 到 
“00 为 止 。 其 流程 图 ( 见 图 4-7 ) ， 程 序 如 下 ， 


开始 P<-0.S<- 直 
5 REH 5C04306 : 
10 P=0: S=90 
26  pP=p+1 
30  S=S+P 
48 IF PC100 THEN. 20 
6 END 


款 加 S< -S+P 


]RUN 
3=5050 


图 4-7C04306 流 程 图 
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第 四 闻 ”多 分 支 程序 的 设计 


前 面 我 们 看 到 的 都 是 两 分 支 程序 ， 实 际 中 有 此 问题 是 要 
第 成 多 个 分 支 的 。 

侈 如 ， 统计 某 门 课 N 个 学 生 的 考试 成 绩 , 90 分 以 上 的 、80 
分 -89 分 .70-79 分 .60-69 分 及 60 分 以 下 的 学 生 各 有 多 少 人 。 


<SFoo 
EN 


图 4-8 C04401 流 程 图 
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用 变量 N 存 放学 生 人 数 ， 用 A0、A6、A7、A8 和 Ag9 分 
别 表 示 不 及 格 ，60 一 69 分 ，70 一 79 分 、80 一 89 分 、90 分 以 上 
的 人 数 ， 用 S 放 分 数 。 按 题 意 , 可 以 画 出 程序 流程 图 4 - 8 。 

这 是 一 个 多 分 支 程 序 ， 我 们 可 以 多 次 使 用 IF 语句 来 形成 
笋 分 支 ， 比 如 ， 根 据 上 述 框图 可 写 出 如 下 程序 ; 


5 REN C94481 

io INPUT N 

28 READ S 

98 1F S<60 THEN A9=A0+12 6G0T0 89 

4 IF SC70 THEN Ab=hA6or1: 6070 88 

50 【F. SC89 THEN AT7=A7+1: 60TQ 88 

469 IF SC99 THEN A8=A8+1: 60T0 88 

78  A9=A9=1 

86  N=N-1 

96 1F N>6 THEN 29 

100 PRINT ”《690 ”TAB(8) 和 680-69" 1TAB(CI5) 1 
“78-79 ”TAB(22)3 80-89 "3 TAB(293) 
“96-169” 

119 PRINT TAB(2)3A83TAB(93)3863TABC16)3A73 
TAB(23)A33TAB(39) 3A9 

128 DATA 96,78,85,56,100,88,98,.94,81,65， 
78,98,84,55,82,74,79,69,68,31 


139 END 
]RUN 
328 
《68 60-69 70-79 88-89 539-188 
2 3 入 6 5 


由 此 可 见 ， 多 次 使 用 IF 语句 ， 可 以 形成 多 分 支 。 本 池 我 
们 要 介绍 另 一 种 多 分 支 程序 的 设计 方法 ， 用 开关 语 名 进行 多 
分 支 程序 设计 。 

一 、 开 关 语 名 

开关 语 名 有 两 种 形式 ， 

ON 天 GOTO mm nn。 
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和 CN 区 GOSUB mm…m。 
它们 分 别 叫 多 向 转移 语句 和 多 向 转子 语句 。 这 节 只 介绍 
语句 ， 多 面 转子 开关 留待 第 七 章 中 讲解 。 


昌 续 移 语 旬 ， 
行 号 ON 区 GOTO mli、m、mo…mn。 
其 中 ， 
Im 、mso、Ins。%。。。 Imn， 是 本 程序 中 的 行 号 


k ， 可 以 是 数值 常量 、 变 量 、 也 可 是 算术 表达 式 ， 其 值 
要 满足 0 入 0 委 255。 

执行 该 语句 ， 首 先 计算 出 表达 式 的 值 并 含 去 小 数 ， 根 据 
整数 值 是 几 ， 就 无 条 件 转 向 第 k 个 行 号 去 执行 。 如 果 k 的 值 
等 于 0 或 是 大 于 行 号 的 个 数 或 n= 0 则 执行 该 句 下 面 的 语 
句 。 例 如 ， 

10 _ INPUT 改 

20 ON K GOTO 40，80，90 

30 

40 

80 

90 

当 玫 = 1.2 时 转 去 执行 40 行 

当 玫 = 2.5 时 转 去 执行 80 行 

当 N = 3 时 转 去 执行 90 行 

当 N> 3 时 执行 30 行 

可 见 这 个 语句 象 一 个 多 路 开关 一 样 , K = 工 接 通 第 一 路 ， 
政 = 2 , 接 通 第 2 路 …… 〈 见 图 4-9) 


88 


m2 “mn3 


图 4 - 9 开关 语句 示意 图 
二 、 应 用 举例 


开关 语句 的 应 用 ， 关 键 是 如 何 正 确 而 巧妙 地 选 样 K， 我 


们 看 看 下 而 的 例子 : 


例 1。 编 一 个 统计 选票 的 程序 ， 统 计 四 个 候选 人 张 . 王 、 


李 、 赵 各 得 多 少 票 ? 总 票数 多 少 ? 


如 果 选 票 上 用 代码 1、2、3、4 分 别 代 表 张 王 、 李 、 
赵 ， 读 入 每 张 选 票 代 码 后 ,用 代码 做 为 ODN - 开 GOTO,…w。 
语句 中 的 开关 ， 分 别 累加 统计 每 个 人 的 票数 ， 最 后 用 = 5 


转 去 打印 结果 。 


5 RENH C04402 


20 READ A 

6  N=N+i 

490 ON A 00T0 50,60,70,80,90 

506 Z=Z+1: 00T0 20 

60  N=i+1: 00T0 20 

76 L=L+l: 00T0 20 

80  C=C+1: 00T0 20 

99 PRINT “ZHANG=”;Z，VWANG=” W LI=”L， 
“CHEN= ”3;C 

100 PRINT “TOTAL=";N-! 

110 DATA 1,4,3,2,1,4,2,3,4,2,1,3,2,3,1， 
3.4,2,3,1,4,2,3,3,1,2,4,2,3,2,3,4,5 

120 END 
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]RUN 


ZHANG=6 WANG-9 全 人 
CHEN=7 
TOTALz32 
例 2 。 把 前 面 用 IE 语句 写 的 多 分 支 程 序 (C04401) ， 
改写 或 用 开关 语句 控制 的 程序 : 


由 于 每 个 分 数 段 相差 10 分 ， 而 且 60 分 及 格 ， 显 然 学 生 的 
分 数 S/10 可 得 到 相 应 的 整数 部 分 为 工 一 10 的 数字 , 但 是 60 分 - 
以 下 的 算 一 档 ， 所 以 我 们 把 开关 语句 表达 式 定 为 S/10- 5。 


5 REN 5C04403 

16 JINPUT N 

26 READ S 

38 0N S/16-5 660T0 59,60,70,89,86 

4@ AD=AD+1: G0T0 99 

58  A6=A6+1: 60T0 39 

68 A7=AT+1: 60T0 98 

78 A8B=A8+1: 00T0 99 

88 A9=A941: 6070 96 

96 N=N-! 

168 IF N>1 THEN 26 

116 PRINT ” 《66" ;TAB8f8)3 "609-89" ;TABC15);” 
76-79 ;TAB(22)3 入 80-89… ;TAB(29)1 "98-100” 

128 PRINT TA3(2) ;AGO3TAB(9);A6ITAB(16) AT， 
TAB( 23);A8;TAB(39) ; A9 

138 BATA 96,78,85,56,199,38,98,94,81,65， 
78,90,84,53,82,74,79,60,68,80 


146 END 
]RUN 
?268 
“68 60-76 70-88 80-986 90-109 
2 3 4 心 4 


例 3。 某 运输 公司 对 运 货 50 吨 以 下 的 每 吨 收费 8 元 ,50 吨 
到 100 吨 以 下 的 每 吨 收费 7.5 元 ，100 吨 到 150 吨 以 下 的 每 吨 收 
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费 7 元 ，150 吨 到 200 吨 以 下 的 每 吨 收 费 6.5 元 ，200 吨 以 上 的 
每 吨 6 元 ， 编 一 程序 算出 用 户 应 交 运 费 。 

由 题目 可 知 ， 运 费 标 准 以 50 吨 为 一 区 间 ， 因 此 ， 把 开关 : 
语句 的 表达 式 定 为 芝 /50.0 + 1.0， 并 用 任 一 负数 做 结 束 标 . 


LOD 


5 、REH C04464 

19 INPUT “T=" 和 T 

29 IF T6 THEN 116 

38 0N T/56+1 00T0 50,48,76,80 
46  P=b.08T: 60T0 .90 
56 P=8.9sT: 60T0 99 
68 P=7.5?T: 60T0 90 
378 P=7.03T: 60T0 96 

89 ?=6.5s 了 

998 PRINT “T=” ;1T， "Ps";P 
1290 00T0 10 

11 END 


]RUN 

T=35 

了 T=35 P=288 
T=90 

了 =90 ?=675 
T=129 

T=120 P=840 
T=250 

T=256 ?=1500 
T=-9 


注释 语句 的 格 未 是 ， 
行 号 REM 文字 说 明 
这 个 语句 是 专门 用 来 对 程序 进行 注释 的 。 你 可 以 把 你 要 
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说 明 的 内 容 〈 程 序 的 主要 功能 ， 各 变量 的 作用 ， 以 及 程序 的 
流程 去 向 等 等 ) ， 直 接 写 在 语句 保留 字 REM 的 后 面 ,不 必 加 
引号 。 文 字 说 明 以 回 车 键 做 为 结束 符 。 
注释 语句 是 非 执行 语句 ， 解 释 程序 不 把 它 翻 成 指令 代 
码 ， 而 是 照 原样 存 贮 每 个 字符 的 ASCII 码 , 所 以 在 注释 语句 
中 。 可 以 使 用 机 器 上 多 许 的 任何 字符 ， 也 可 以 使 用 保留 字 ， 
在 中 文 BASIC 中 可 以 使 用 中 文 。 
注释 语句 可 以 写 在 程序 的 任何 地 方 。 可 以 在 泪 序 的 第 
一 行 ， 也 可 在 单间 行 和 最 未 行 ， 它 还 可 以 是 多 语句 行 的 最 后 
一 个 语句 。 每 个 例题 的 第 一 行 都 使 用 了 注释 行 ， 下 面 的 例题 
中 ，10 行 的 最 后 一 个 语句 是 注释 行 ， 注 明 耻 的 单位 是 
“ 吨 ”，P 了 的 单位 是 “元 ? 
5 RE C04501 
10 INPUT “T=";T: RENM T:ton，p:Yuan 
20 [IF TO THEN 110 
39 ON T/50+1 60T0 50,60,76,80 
”48 pz=6.034T: 60T0 99 
50 p=8.04T: 00T0 99 
60  _pP=7.5sT: 00T0 98 
70 _pP=7.0?T: 00T0 98 
80  P=6.5sT 
90 PRINT “T>”;T，“pP=”;P 
100 60T0 10 
110 END 


第 六 节 ”分支 程序 设计 实例 


例 1. 解 方程 cx2+ pxt+c= 0， 要 求 从 键盘 输入 A、B、 
C， 匣 方程 有 解 则 打印 x,、xz, 若 方程 无 解 则 打印 “NO SO- 
LUTION! ?2 。 
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根据 代数 中 所 学 的 知识 ， 若 根 判 别 式 


.和 
刀 - 4ac>> 0 则 有 两 个 实数 根 xb za- 22 土 必 思 二 40 


天 -ad4c< 0 则 无 实数 根 
由 这 个 分 析 可 以 画 出 程序 流程 图 4 - 10 


打印 NO 
SOLUTION 


图 4-10 C04600 流 程 图 


5 REH C04600-1 

18 JJNPUT A,B,C 

20 0D=B#B-4*AsC 

3J0 IF D《6 THEN 80 

49 Xi=(-ByYSQR(D)7V(245A) 

56 X2=(-B-SQR(D))V(2sA) 

60 PRINT “Xl= ”入 1 X2=”;X3 
76 00T0 9 

86 PRINT “NO SOLUTIONI” 

96 END 


983 


JRUN 
?3,5,2 
Xln- ,65666 驼 87 X2=-1 


]RUN 
?4,3,5 
NO SOLUTIONI 


还 可 以 把 程序 写成 以 下 形式 ， 


5 REN C64606-2 

19 1NPUT A,8,C 

29  D=8s8-4 训 ASC 

39 IF D《8 THEN PRINT “NO SOLUTION1”， 
00T0 70 

496 Xi=(-B+SQR(D))/(23A) 

58  X2=(-B-SQR(D))/(28A) 

68 PRINT “X1= ”3X1，X2=”;X2 

78 END 


]RUN 
33,5,2 
X1=-.666666667 X2=~1 


第 二 个 程序 和 第 一 个 程序 的 区 别 是 THEN 后 面 不 是 行 
号 ， 而 是 语句 体 ， 这 样 就 省 去 了 一 个 语句 ， 使 程序 更 简洁 。 

例 2。 有 人 上 楼 ， 若 一 步 迈 2 阶 ， 则 余 一 阶 ! 一 步 迈 3 
锥 ， 则 余 2 阶 ! 一 步 迈 4 阶 ， 则 余 .3 阶 ， 一 步 迈 5 阶 ， 则 正 
好 走 完 ， 计 算 楼 梯 至 少 有 多 少 阶 ? 

根据 题 意 ， 由 “一 步 迈 2 阶 ， 则 余 工 阶 ?， 可 知道 这 个 楼 
梯 数 必 是 奇数 ， 由 “一 步 迈 5 阶 ， 正 好 走 完 ， 可 知 工 能 被 
5 整除 。 由 这 两 个 条 件 可 以 数 定 X 必然 在 数列 5 、15、25、 
35…… 之 中 。 同 时 ， 由 已 知 “ 迈 了 3 阶 余 2 阶 ， 迈 4 阶 余 3 
粉 ? ， 可 知 x- 2 能 被 3 整除， x- 3 能 被 4 整除 。 可 以 画 出 
程序 流程 图 ( 见 图 4 -11) ， 程 序 如 下 ， 
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SS REN C604691 

19 ” X=5 

29 1F INT((X-2)/3)K>(X-2j73 TREN 00 
39 IF INT((X-3)/4)C>(X-3)74 THEN 66 
498 PRINT X 

58 0070 8 

68  X=X+10 

76 00TO 20 

89 END 


图 4-11 C04601 


例 5. 让 计算 机 出 10 道 乘法 题 〈 两 位 数 乘 以 一 位 数 ) 请 
你 回答 ， 你 一 打 入 你 算出 的 结果 ， 它 就 自动 记分 ， 错 一 题 扣 
10 分 。10 题 全 对 , 就 给 出 “VERTGOOD! ”。 对 八道 以 上 ， 
给 出 “GOOD1! ”, 对 6 道 或 7 道 , 给 出 “PASS! ”。 少 季 
六 道 就 给 出 “FAIL” 。 
因为 乘除 和 被 乘 数 要 由 机 器 随意 生成 ,. 我 们 马上 会 考 感 
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亡 志 D 
产生 A 和 B、 
显示 题 号 、 A 米 B = 


C=A 米 B? 


N 


oo 


立 N 


和 N 


ED 
礁 


图 4-12 “C04602 流 程 图 


利用 随机 函数 把 随机 数 扩大 10 或 100 倍 再 取 整 就 可 以 得 到 1 
位 或 2 位 整数 。 变 最 A、B 分 别 存 放 被 乘 数 和 乘 数 ，C 存放 
你 送 入 的 结果 ,S 存 放 分 数 , I 是 记 数 器 。 流 程 图 (图 4-12) 
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和 程序 如 下 ， 


5 REN C04602 

10 S=6: 1=0 

20 IT=1+1 

38 A=INT(100*RND(1)) 

48 8=JINT(10sRND(1)) 

50 PRINT “NO.…;1 

69 PRINT As";B; =" 

70 JINPUT C 

80 IF C=As8 THEN S=S+16 

96 IF !(18 THEN 29 

100 PRINT “Your score is";S 

119 IF SC66 THEN PRINT “FAIL!": 60T0 150 
120 IF S<86 THEN PRINT “PASS!":， 060T0 156 
136 IF SC100 THEN PRINT “600D1": 60T0 158 
146 PRINT “YERY 600D1” 

150 END 


可 以 修改 30 行 , 40 行 ,60 行 和 80 行 进行 其 它 心 算 测 验 ， 还 
可 以 把 打印 的 英文 ， 在 中 文 BASIC 下 改 成 汉字 ， 这 个 程序 就 
可 以 给 小 弟弟 、 小 妹妹 玩 了 。 

例 4。 相 传 古 印度 国王 人 铭 罕 非常 喜欢 下 棋 ， 他 的 字 相 达 
依 尔 发 明了 国际 象 柑 ， 国 王 因 此 要 奖赏 他 ， 问 他 想 要 什么 ， 
达 依 尔 回 答 ， “陛下 ， 我 只 要 在 棋盘 的 第 一 个 格子 里 放 一 
粒 米 ， 第 二 个 格子 放 2 粒 米 ， 第 三 个 格子 放 4 粒 米 ，，…… ， 
直 放 到 第 64 个 格子 。” 国 王 一 听 ， 欣 然 同意 ， 立 即 把 管 库 的 
找 来 一 算 ， 国 王 才 大 吃 一 惊 。 达 依 尔 要 的 是 多 少 米 呢 ? 如 果 
工 立方 米 有 1.42*103 颗 ， 则 要 多 少 立方 米 的 米 ? 

我 们 共 题 意 可 得 到 下 面 的 计算 公式 ， 

工 =20+21 二 22 十 23 二 oo 中 2 

观 守 这 个 公式 ， 我 们 可 以 列 出 下 表 : 
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第 I 项 第 工 项 值 A 前 工 项 和 了 


1 1I= 2 I 

2 1Xx32=21 1 +21 

3 2!X2=22 1 二 21+22 

和 22X2=23 1 十 21 十 22 十 ?33 

5 23x2=2 工 十 21 十 22 十 23 十 24 


民工 和 工 工 
ee@eee 
ee 96 


64 2e2X2=263 1 +2!+22++23+24 二 eeeeoe 十 263 
宁 相 所 要 米 的 体积 是 工 + (1.2 x 103) 立 方 米 。 

由 此 可 以 画 出 程序 流程 图 ( 见 图 4-13)， 根 据 流 程 图 可 
以 写 出 程序 如 下 : 


5 REN C64603 

190 1=1: A=1: T=1 

20 【zl1+1 

30  A=A+2 

4Q T=T+A 

50 IF 1K64 THEN 26 

60 S=T/1.42E+08 

78 PRINT“T= ”Ti” ”SS 
80 END 


]RUN 
1=1.84467441E+19 ”S=1,.29966648E+11 


图 4-13  C04603 流 程 图 
398 


在 这 个 程序 中 ，I 相 当 于 棋盘 格子 编号 ，A 每 里 琛 一 沪 
就 得 到 每 个 格子 应 该 放 的 米粒 数 。 工 则 是 每 个 格子 米粒 的 色 
加 和 。 

例 5. 有 些 程序 (如 人 事 档案 、 工 资 管理 、 学 籍 、 病 历 
等 等 ) 只 允许 某 些 人 使 用 ， 可 以 在 进入 程序 之 前 先进 行 通行 
字 (也 叫 保密 字 或 口令 ) 检查 ， 若 你 回答 日 令 正确 ， 才 能 进 
人 你 所 要 的 程序 ， 若 你 回答 的 口令 不 正确 ， 就 不 能 进入 程 
疗 、 还 可 以 控制 发 报警 信号 。 


5 REN C646064 

10 Nz6 

26 AS= "SUN" : 8S="STAR” 

38 1NPUT “PASSWORD:; CS 

49 IF CS=AS 00T0 106 

56  N=N+1 

66 IF N3 60T0 398 

76 IF CS$=85 00TQ 98 

86 PRINT “Stop thiefl”": 3T0p 
96 PRINT “Bye-byel": 00T0 126 
100 PRINT “Serve you 

126 END 


JRUN 

PASSWORD: ABC 
了 PASSWORD XY 
PASSWORD : WER 


Stop thiefl 
Break in 80 
]RUN 


PASSWOKD: SUN 


Serve you 。 
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JRUN 
PASSWORD :QAS 
PASSVORD :WS. 
PASSWORD :STAR 


Bye-byel 


这 个 程序 的 第 一 保密 字 是 “SUN”, 第 二 保密 字 是 “S- 
TAR”。 如 果 你 知道 第 一 保密 字 就 可 进入 实用 程序 , 如 果 你 
不 知道 第 一 保密 字 , 而 知道 第 二 保密 字 会 显示 出 Bye - byel 
如 果 你 第 一 、 二 保密 字 都 不 知道 ， 则 当 你 第 三 次 送 入 的 字 和 和 
保密 字 对 不 上 时 ， 就 会 显示 STOP thief! 并 且 报警 停机 。 

例 6。 我 们 可 以 用 DATA 语句 把 一 个 班 所 有 学 生 的 姓 
名 、 性 别 、 年 龄 、 总 平成 绩 都 登记 下 来 ， 可 以 编 一 个 程序 ， 
查找 所 要 的 内 容 ， 这 种 从 若干 数据 中 查找 所 要 的 内 容 的 方法 
叫 “ 检 索 ” 为 了 简单 我 们 只 登记 总 平均 成 绩 。 要 求 查找 总 平 
均 成 绩 在 90 分 以 上 ,年 龄 在 16 岁 以 下 的 女 同学 的 名 单 我 们 用 
AS$ 存 放 姓名 ，B 、C 、D 三 个 变量 分 别 存放 性 别 、 年 龄 和 
总 平均 成 绩 。 我 们 规定 女生 为 0 ， 男 生 为 1 。 由 此 可 以 得 到 
如 下 判别 条 件 

B=1ANDC<IL6 AND D>90 

可 用 中 文 BASIC 写 成 如 下 程序 ， 


5 REH C04605.C 

10 READ AS3,8,C,D 

20 IF B=0 AND C<16 AND D>=90 THEN PRINT AS 

30 IF AS 《> 完 ”00T0 10 

46 PRINT“ 完 ” 

56 DATA 李 明 ,1,16,99, 张 平平 ,0,15,92, 陈 骼 ,0,17,96 
60 DATA 赵 席 ,1 15,95, 林 条 ,0,15,87, 王 茧 丽 ,0,14,98 
70 DATA 完 ,0,0,0 

80 END 
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]RUN 
张 平平 
王 葱 丽 
完 


可 以 试 着 修改 第 20 行 ， 进 行 其 它 项 的 检索 比如 ， 要 检索 
王 的 同学 和 名 童 ， 可 以 把 第 20 行 改 成 
en 0 “ 王 7 THEN PRINT AS$ 
例 7。 求 斜 抛 运动 的 轨迹 ， 设 一 质点 从 原点 以 初速 度 v， 
与 水 平方 向 夹 角 % 向 斜 上 方 抛射 , 求 当 t= 0.1， 册 0.3… 
坦 到 落地 时 质点 在 各 时 刻 的 位 置 〈 以 座 标 x，y 表 示 ) 。 
从 所 学 的 物理 中 知道 斜 抛物 体 所 处 的 位 置 是 : 


| X=vVocOSQaot 


1 
y=vo 一 Sinct 一 gt 


按 这 组 公式 可 以 求 出 在 每 个 时 刻 t 时 质点 的 位 置 ， 当 y 返 
0 有 时， 表明 落地 了 。 程 序 流 程 图 ( 见 图 4 -14) 和 程序 如 下 ， 


5 RENH C64666 
19 1NPUT “V6,AF=";VY6,AF 

26 T=0 

36 AI!=AF*z3.141592/189 

46 PRINT TAB(2)3”T"3TAB(15)3"X"?TAB(28) :syYw 
50 T=T+0.1 

60 X=V6sC0S(A1)sT 

78 Y=Y0s*S1N(A1)sT-0.58980sTA2 
88 PRINT T; TAB(12)3X3TAB(25) ;Y 
96 IF Y>6 6070 56 

100 END 


6 


]RUN 
V9,AF=1900 .67 
X Y 
339.731353 “438.564758 
423.804488 ”419.655234 
458.877623 ”399.065709 
3507.059758 ”368.554185 
547.0238934 ”328.3866b ; 
586.697829 278.257137 
625.176164 ”218.407612 
664.243299 ”148.758688 
763.316435 “69.3085629 
742.38957 -13.9409699? 


一 一 一 一 一 一 一 一 一 上 
放生 os 
DOD 一 人 耻 届 和 台电 一 


从 运算 结果 中 可 以 看 出 ， 以 初速 度 Ve = 10 米 / 秒 、 水 平 
夹 角 % = 67" 德 出 后 物体 在 1.8 一 1.9 秒 之 间 落 地 。 


习 题 四 


1。 指 出 下 列 程序 行 的 错误 ， 
(1) 10 IF x>5 THEN PRINT x 
(2) 10 IF A= “BOOK”THEN PRINT A 
(3) 10IFEB=BTHEN 10 
(4) 10 IF C$=PEN THEN PRINT G$ 
(5) 10 IF X<y THEN 50:X=X+ 工 
2。 下 列 程序 打印 什么 结果 并 运行 程序 核对 。 
(TI0 = 二 5Bs 

20 PRINT A，B， 

30 A=A+B 

40 B=B+A 

50 IF B<9 THEN 20 

60 PRINT Ad+B 

70 END 


102 


(2) 10 READ X,Y 
20 IF X= -1THEN 70 
30 IF XxY<X-Y THEN 50 
40 PRINT X， 立 
50 GOTO 10 
60 DATA -5,3,-2,10，5，8，7，-19， 
-1，0 
3。 编 程 计 算 下 列 各 题 结果 。 
从 键盘 输入 X ， 求 7 值 : 


SinX 十 COSX 
(29 2 X 盖 0 


《1) | 和 > 5 


2 < 一 加 。 
xx  X<5 人 0 
和 一 人 4.5 0 委 和 <2 
(38) y=1ex+eszx 2 委 X<4 
X2 一 2X+ 1 4 近 X<6 
4。 用 DATA 语句 提供 一 批 数 ， 编 程 统 计 其 中 正 数 、 俩 
数 以 及 零 的 个 数 。 


5。 数 学 上 1 x2x3x4xxN 称 为 N 的 阶乘 ， 记 作 : 
N! ， 编 一 程序 ， 从 键盘 输入 N， 求 NI! 

6。 某 数 被 5 除 余 4， 被 9 除 或 被 11 除 也 余 4， 而 它 刚 
好 被 4 整除 ， 求 满足 这 些 条 件 的 最 小 正 整数 。 

7. 用 DATA 语 句 提供 6 个 学 生 的 姓名 性别、 成 绩 , 编 一 
个 程序 把 其 中 80 分 以 上 的 学 生 姓 名 、 性 别 、 成 绩 打 拷 出 来 . 

8。 输 入 一 组 实数 a ，b，c (a 十 0) 求 二 次 函数 
y=ax2z+bx+c 的 顶点 坐标 ， 对 称 轴 方 程 和 抛物 线 开 口 方 
间 ， 并 求 出 当 x 取 何 值 时 y 取 极 大 值 或 极 小 值 是 多 少 ? 
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第 五 童 ” 循环 程序 的 设计 


循环 程序 是 程序 设计 中 最 常见 的 结构 之 一 ， 本 章 首先 介 
绍 循 环 语句 的 规定 ， 然 后 介绍 单 重 循环 程序 和 多 重 循环 程序 
有 的 设计 方法 。 


第 一 节 “什么 是 循环 语句 


我 们 在 上 一 章 介 绍 了 “循环 ”分 支 程 序 ， 这 类 程序 应 用 
十 分 广泛 ， 循 环 语句 就 是 专门 为 这 类 程序 设计 的 ， 用 循环 语 
名 设计 循环 程序 可 使 程序 简洁 明了 。 

一 、 循 环 语句 格式 

L， FOR 循环 变量 = 初 值 TO 终 值 STEP 步 长 


二 ，NEX 工 循环 变 量 
其 中 : 
EL、LL :是 语句 标号 
循环 变量 也 叫 控制 变量 ， 必 须 是 实 型 变量 名 。 
初 值 、 终 值 、 步 长 可 以 是 实 常量 ， 实 变量 也 可 以 是 算术 
NEXT 后 面 的 变量 名 和 FOR 后 面 跟 的 变量 名 要 一 致 。 
FOR 和 NEXT 之 间 的 语句 称 为 循环 体 。 
二 、 循 环 语句 的 执行 过 程 
循环 语句 在 不 同 的 BASIC 版 本 中 执行 方式 有 所 不 同 ， 
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在 中 华 学 习 机 上 ， 它 是 这 样 执行 的 : 

1。 首 先 执行 FOR 语句 ， 把 初 值 赋 给 循环 变量 ， 并 登记 
终 值 和 步 长 

2。 执 行 循环 体内 各 语句 

3。 执 行 NEXT 语句 : 首先 参照 FOR 语句 , 将 循环 变量 
的 值 加 上 步 长 值 再 送 回 到 循环 变量 ， 然 后 检查 循环 变量 的 新 
值 是 否 超过 终 值 ， 若 不 超过 终 值 ， 则 返回 去 再 执行 循环 体内 
各 语句 ， 若 超过 终 值 ， 则 终止 循环 ， 从 循环 语句 出 口 退出 ， 
执行 NEXT 的 后 续 语 句 。 

上 述 过 程 可 用 下 面 流程 图 表示 “〈 见 图 5-1) 。 


进入 循环 
三 条 环 变量 取 初 值 


执 2 体内 
一 人 馈 


遇 NEXT 时 
衢 环 变量 + 步 长 一 
循环 变量 


图 5-1 FOR -NEXT 语 句 示意 图 


对 于 这 种 循环 语句 ， 循 环 体 至 少 被 执行 一 次 ， 例 如 下 例 
程序 尽管 一 开始 初 值 就 超过 了 终 值 ， 但 仍然 要 执行 一 次 循环 
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体 才 退 出 循环 。 例 如 


5 RENM C85184 

19 FOR il-2 T9 1 STEP ! 
26@6 PRINT 1 

38 NEXT ! 

496 END 


1RUN 
2 


输出 结果 为 2 ， 即 第 20 句 执行 了 一 次 。 
三 、 关 于 循环 语句 的 几 点 说 明 

| 东 长 : 
(1 ) 步 长 等 于 1 时 ， 可 以 省 略 。 例 如 : 我 们 用 循环 语 
名 改写 上 一 章 中 第 6 节 的 ， 其 程序 如 下 : 


5 RE C65102 

10 A=1l1; T=1 

24 FOR [zl T0 5 

3  A=AS2: TJ=J+A 

48 NEXT 上 

50  SzT/1.42E+08 

60 PRINT “Ta= "iT” “SS 
70 END 


]RUN 
T=1 ,84467441E+19 S=1.29966648E+11 
(2 ) 步 长 可 以 是 正 数 也 可 以 是 负数 。 步 长 为 负 值 时 ， 
终 值 要 小 于 或 等 于 初 值 ， 控 制 变 量 值 小 于 终 值 时 就 退出 乱 
环 。 
我 们 计算 N! ， 通 常 采用 两 种 办 法 : 
NI! =Nx2x8axx(N-1l1)xN 


或 是 : NI! =Nx(N-1)x…x3x2x1l 
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由 此 ， 可 以 写成 如 下 两 个 程序 ; 


5 RENH C051063-a : 5 REH C65163 访 
10 INPUT N 19 INPUT N 

20  S=1 26 S=1 

30 FOR I=2 TON 36 FOR I=N TO 2 STER ~? 
40 SS=Szy 上 49  S=S*j 

56 NEXT 1 56 NEXT 

66 PRINT “S=”;S 66 PRINT“S=";S 
70 END 76 END 

]RUN ]RUN 

?5 ?5 

S=120 S=120 

]RUN ]RUN 

?10 ?10 

S=3628800 S=s3628800 


在 图 5-2 让 ， (a) 中 使 用 正 循环 变量 ， 当 I>N 时 ， 就 
“超过 终 值 退 出 循环 ，( b ) 中 使 用 负 循环 变量 , 当 I< 2 时 也 
就 “超过 ”了 终 值 退出 循环 。 我 们 所 记 的 循环 变量 “超过 ?” 
终 值 的 含意 有 两 个 ， 当 步 长 为 正 时 ， 指 循环 变量 沿 数 轴 正 方 
向 增加 “超过 ” 终 值 ， 当 步 长 为 负 时 ， 指 循环 变量 沿 数 轴 负 
方向 增加 “超过 2? 终 值 。 


越过 终 值 越过 终 值 


初 值 终 值 终 值 初 值 
[aaa ea 3 一 一 一 一 一 一 
步 长 为 正 步 长 为 负 
(ay) (b) 


图 5-2 正 负 步 长 示意 图 
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2。 舌 蒜 变 县 

(1 ) 循环 变量 不 一 定 能 取得 给 定 的 终 值 ， 当 循环 变量 
超过 终 值 退出 循环 时 ， 它 将 保留 第 一 个 超过 终 值 的 值 。 

运行 下 面 程序 ， 并 从 键盘 送 入 初 值 A， 终 和 值 B 和 步 长 C， 
可 以 观察 循环 变量 每 次 循环 的 取 值 ， 和 已 退出 循环 后 保留 的 
值 。 

从 键盘 输入 A、B、C 值 ， 得 到 每 次 循环 时 循环 变量 的 取 
值 ， 以 及 退出 循环 后 X 所 保留 的 值 。 


5 REM C05104 

10 _ INPUT A,B,C 

20 FOR X=A TO B STEPC 
30 PRINT“X=?; Xi “?” ; 


40 NEXT 和 

50 PRINT “ ? 和 “和 X=”; 信 
60 END 

] RUN 


? 1,10,4 

X 一 1 X=5 X=9 X=-13 

] RUN 

3 一.25473 

和 一 一 5 X= 一 2 X=1 X=4 X=7 

] RUN 

?5，, 一 5， 一 5 

X 广 =5 X=0 X= 一 5 X= 一 10 

JRUN 

?35， 一 7, 一 3 

X 一 5 X=2 X= 一 1 X= 一 4 X= 一 7 X= 一 10 
] RUN 

?一 0 .2, 工 ,0.2 

驻 一 一 0.2 X 一 0 区 = 一 0.2 区 一 0.4 X=0.6 X=0.8 X=1 和 =1.2 
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(2 ) 循环 变量 在 循环 体内 可 以 被 引用 ， 但 不 能 轻易 改 
变 循环 变量 的 值 。 

上 述 两 个 求 阶乘 的 程序 在 循环 体 中 就 引用 了 循环 变量 ， 
但 并 没有 改变 它们 的 取 值 ， 也 就 是 说 在 循环 体内 没有 出 现 给 
循环 变量 重新 赋值 的 语句 。 

循环 变量 是 用 来 控制 循环 的 ， 它 的 值 是 在 执行 NEXT 语 
名 时 根据 步 长 来 改变 的 ， 如 果 在 循环 体内 对 循环 变量 进行 赋 
值 ， 势 必 使 循环 失去 控制 ， 导 致 程序 错误 或 出 现 死 循 环 。 在 
一 般 情 况 下 ， 不 要 轻易 在 循环 体内 对 循环 变量 进行 赋值 。 

《3 ) 循环 变量 不 出 现在 循环 体内 。 这 时 的 循环 变量 相 
当 于 一 个 计数 器 ， 只 控制 循环 次 数 。 

我 们 在 前 面 给 出 的 用 循环 语句 改写 的 上 一 章 第 六 节 的 例 
子 中 ， 循 环 变量 就 未 出 现在 循环 体 中 ， 而 只 起 记 数 作用 。 下 
面 再 给 出 一 个 例子 : 

例 1 .一 对 小 兔子 出 生 后 隔 月 长 成 大 兔子 ,大 兔子 每 月 生 
一 对 小 兔子 ， 假 定年 初 有 一 对 刚 出 生 的 小 兔子 ，2 年 之 后 一 
共有 多 少 对 兔子 ? 

由 题 可 以 得 出 这 样 一 列 数 : 

1，1，2，8，5，8，13… 

这 个 数列 从 第 三 次 开始 ， 每 次 都 等 于 前 2 项 的 和 ， 该 数 


列 称 为 “ 菲 波 那 数列 ”， 程 序 如 下 ， 
REH C865165 

字 A0=1: Al=1 
20 FOR I=1 T0 11 
36  AO=AO+A1: Al=AC+A1L 
40 NEXT 1 

58 PRINT “A24=”;A1 

END 


]RUN 
A24=46368 
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程序 中 的 循环 变量 I 只 起 计数 作用 :两 年 24 个 月 ， 最 初 
“二 个 月 ?做 为 初 值 ， 每 循环 一 次 求 “2 个 月 ” ， 所 以 只 要 
循环 11 次 就 可 以 了 。 

3 。 循 环 

循环 体内 语句 数量 不 限 ，BASIC 语 名 都 可 以 使 用 。 现 
在 主要 说 明 以 下 三 点 : 

(1 ) 空 循环 ， 循环 体内 没有 任何 语句 时 称 为 空 循 环 ， 
可以 写成 以 下 形式 ， 

100 FOR KK=1TO 1000 

110 NEXT 开 

或 ”100FOR K=1 TO 1000，NEXT 开 

空 循环 的 作用 主要 用 于 延 时 ， 可 以 用 它 使 屏幕 上 显示 的 
汶 容 滞留 一 段 时 间 ， 以 便 能 看 清楚 。 

例如 :如 果 你 想 第 一 屏 显 示 : 


米 求 米 阔 玉 玉 冰 炒米 玉米 炒米 玉 
从 米 
关中 华 学 习 机 兴 
兴 玉 
兴 米 炒米 玉 玉 玉 来 米 玉 玉米 水 来 
第 二 屏 显示 
一 # 一 为 您 服务 一 * 一 
可 以 输入 下 列 程序 ， 
5 REM C05106.C 
10 HGR2 
20 PRINT 米 玉 玉米 炒米 米 水 米 求 米 米 玉米 
30 PRINT 
40 PRINT 水 中 华 学 习 机 罗 
50 PRINT 
-00 PRINT 求 米 炒 求 米 水 玉 求 炒米 求 玉 米 来 


70 FOR 天 =1 TO 1000:NEXT 天 
80 HGR2 


90 PRINST 一 光一 为 您 服务 一 沙 一 
100 PRINT 
110 END 


程序 中 的 70 行 用 于 换 屏 延 时 。 

(2 ) 在 循环 体 中 允许 使 用 条 件 转移 语 避 和 其 它 转 问 语 
句 ， 人 允许 在 循环 体内 部 转移 ， 也 允许 从 循环 体内 转 到 循环 体 
外 ， 但 不 人 允许 不 经 过 NEX 工 语句 直接 转向 本 循 环 语 句 的 入 
口 ， 也 不 允许 从 循环 体外 转 到 循环 体内 。 


下 面 是 求 当 X 以 步 长 0.2 从 - 2 变化 到 + 2, 求 Y = 本 
的 值 的 程序 ， 当 X = 1 时 分 式 无 意义 ， 打 印 NO: 
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5 REH C65167 
10 FOR X=-2 T0 2 STEP 6.2 
20 IF ABS(CX-1) 人 才 ,C5801 THESN 
PRINT “NO0”: 60T0 56 
38 YY=1/(X-1)^2 
48 PRINT“Y=i 
58 NEXT X 
6 END 
如 果 把 第 20 行 写成 : 
20 IF X=1 THEN PRINT “NO”: GOTO 10 则 就 
大 错 而 特 错 了 。 因 为 循环 语句 的 入 口语 句 一 执行 ,总 是 把 初 什 
赋 给 循环 变量 ， 如 果 X 己 取得 了 1 ， 下 次 应 该 取 值 为 1.2， 
但 转 去 执行 第 10 行 ，X 又 会 取 初 值 - 2， 可 见 ， 程 序 将 处 于 
死 循环 状态 。 因 此 ， 任 何 时 候 不 允许 不 经 过 NEXT 语句 ， 
直接 转 到 循环 和 人口 语句。 
如 果 IFE……THEN 语 句 之 后 使 用 循环 语句 ， 则 FOR 语 
句 和 NEXT 语句 必须 同时 出 现在 THEN 之 后 ， 也 就 是 说 ， 
FOR 语句 、 循 环 体 、NEXT 语 句 必须 在 IF 语句 的 一 行 写 完 。 
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( 3 ) 循环 语句 内 可 以 有 循环 语句 ， 称 为 循环 起 套 或 多 
重 循环 。 


第 二 节 ”循环 语句 的 应 用 

循环 语句 虽然 是 专门 为 “循环 ”分 支 程 序 设 计 的 ， 但 并 
不 是 所 有 具有 “循环 分 支 ?结构 的 程序 都 能 使 用 循环 语句 ， 使 
用 循环 语句 的 前 题 必须 是 事先 知道 循环 变量 的 初 值 、 终 值 和 
步 长 ， 或 是 能 用 某 些 算 术 表 达 式 计算 初 值 、 终 值 和 步 长 。 上 
一 章 分 支 程 序 设计 实例 中 的 例 5 ， 由 于 事先 不 能 确定 终 值 
《学 生 人 数 ) ， 因 此 不 能 使 用 循环 语句 ;如 果 事 先知 道学 生 
人 人数 N， 那 么 就 可 以 写成 下 述 循环 程序 : 

5 REN 505201.C 

10 INPUT N 

20 FOR J=l JuNAN 

0 READ AS ,B,C,D 

40 IF B=6 AND C《16 AND D>=90 THEN PRINT AS 

45 NEXT ! 

506 DATA 李 明 ,1,16,90, 张 平平 ,0,15,92, 陈 骆 ,0,17,96 


60 DATA 起 虎 ,1,15,95, 林 窜 ,0,15,87, 完 荔 . 丽 ,0,14,90 
70 END 


1RUN 
26 
张 平平 
完 荔 丽 
程序 的 运行 时 同 ， 主 要 取决 于 循环 结构 程序 的 循环 次 数 
和 循环 体内 语句 的 多 少 及 每 个 语句 的 执行 时 间 。 因 此 ， 能 在 
循环 体外 进行 的 运算 ， 不 要 放 在 循环 体内 。 
例如 ; 计算 y= asina 的 值 ， 其 中 a = 1， 2，3…100 
Q&=73” 
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10 AFE=73#3.14159/18 
20 FOR A=1TO 100 
30 Y=AxSIN (CAF) 


40 PRINT Y 
50 NEXT A 
60 END 


10 行 中 的 计算 与 循环 变量 A 无 关 ， 故 放 在 循环 之 外 减少 
运行 次 数 。 下 面 再 给 出 几 个 例子 ， 

例 1 .如 果 一 个 三 位 数 , 其 各 位 数字 立方 和 等 于 这 个 数 ， 
那么 称 这 个 数 叫 水 仙 花 数 。 比 如 153 是 一 个 水 但 花 数 ， 因 为 
153=13+53+33， 找 出 100 到 999 之 间 的 全 部 水 仙 花 数 。 

把 一 个 数字 分 解 成 组 成 它 的 单个 数码 ， 可 以 用 除 以 10 的 
某 次 方 〈 即 把 小 数 点 左 移 ) 并 取 整 ， 比 如 分 解 2153: 
2153*1000=2.513 ” 取 整 后 得 2 2513- 2x 1000 = 153 


153: 100=1.53 取 整 后 得 1 153 -1 xx100=53 
53+10=5.3 取 整 后 得 5 53-5x1l0=3 


根据 这 个 思路 ， 设 A、B、C 为 水 仙 花 的 三 位 数 ， 设 计 的 
程序 如 下 : 


5 RENH C05202 

10 FOR 1=100 T0 999 

20 A=INT(1/100) 

30 8B=iNT((1-A*100)110 

40  C=1NT(1-Az100-834+10 ) 

50 IF IC7>INT(A*A#A+B#+B#+B+ChCyC) THEN 7 
60 PRINT ! 

70 NEXT | 

80 END 
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例 2 . 右 图 是 一 系列 从 大 到 小 的 正方 形 ,每 个 正方 形 的 顶 
点 正好 是 它 的 外 搂 正方 形 的 中 点 。 假 定 最 大 正方 形 的 边 长 为 
1 ， 求 这 些 正方 形 中 前 N 个 正方形 的 面积 之 和 。 


这 些 正方 形 的 面积 正好 是 ， 
人 


… 我 们 可 以 很 容易 地 求 得 其 


前 N 项 和, 写成 这 样 一 个 程序 : 
设 J 为 前 N 项 和 ， I 为 循 
环 变量 。 


s .fEIH 5C65208 

40 1TNPUT N 

20 Jas1: K=j1 

389 FOR 1=2 T0 2 

40 X=Ks0:5 

56 ， 4j=J+K 

60 NEXT ! 

70 PRINT“Nzs “2Ni Ja 2 了 
83 END 


2 
Na2 Ji .5 
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hu4 Jo1.87S 
IN 

?49 

No19 J=1.99864688 


例 3. 求 多 项 式 = ao 和 。 二 aiX 1+as 俯 二。 十 aa-l 
十 3。 

如 果 我 们 用 赋值 语句 ， 则 式 子 写 起 来 太 长 ， 并 且 求 每 一 
项 时 ， 都 要 从 头 计算 X 的 连 乘 积 ， 重 复 计算 太 多 ， 现 在 用 提 
取 公 因子 的 办 法 把 它 写 成 如 下 形式 : 

立 =a0Xn" 十 31X" -1 十 82Xn"-2 二 oo 十 Qu_X2 二 8。_IXT+8。 

= (BOX" -1 二 aiIXI -2 十 2Xn -3+eee 十 ho) 和 Tan_IX+an 

=〔((a0X" -2 十 31X" 3 二 十 hu)X 二 an_1l)X+an 


= (。%((a0X+ai)+a2)X+。e 十 3 1) 和 +8。 


观察 我 们 导出 的 式 子 ， 我 们 会 发 现 : 


若 ao 一 A， al 一 了 B aoX+al 是 AX+B 
axX+ai->A ai-~>B (axX+ai)X+a 也 是 Ax+B 
(aoXx+ai)X+a->A as~> 了 B ((aX+al) 和 +8z) 和 了 32 

还 是 Ax+B 


这 样 ， 计 算 Y 的 过 程 ， 就 是 反复 计算 AX +B 的 过 程 ， 这 
个 过 程 要 重复 几 次 。 

例如 要 计算 立 =7.5X7+3。6X8--6。4X4 二 3。2 X3 一 3。9 玉 
+1.8 我 们 可 以 把 最 高 次 宕 数 和 系数 写 人 DATA 语 句 ， 从 
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键盘 送 入 X 值 来 计算 Y， 送 入 不 同 的 X， 可 以 得 到 对 应 的 立 
值 ， 程 序 如 下 ， 


5 REH C65204 

18 1NPUT “X=”;X 

28 READ N,A 

386 FOR 1=1 TON 

498 READ B 

58  A=ASX+B 

68 NEXT ! 

78 PRINT “X= ”3X，Y=…;A 

86 DATA 7,7.5,3,6,0,-6.4,3.2,9,-3.9,1.8 
90 END 


X=2.3 Y=2939.21444 


X=2 Y=1107.6 


在 DATA 语 名 中 ， 系 数 要 带 符 号 ,空缺 项 和 5、 六 的 系数 
要 送 入 0 。 

例 4 。 求 右 图 中 A、B 两 端的 电阻 。 

在 物理 中 我 们 学 过 串联 电阻 Rx 和 Rr 的 总 电阻 R =Rx 


+ Rr， 而 并 联 电阻 Rx+Ry 的 总 电阻 R= 刺 - 区 : 。 右 图 


A Ri R， R， 
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中 ， 为 了 清楚 起 见 我 们 把 它 分 成 三 级 ， 第 一 级 的 串联 电阻 R 
= Ru+Ri，R 和 R: 并 联 ， 并 联 电阻 为 -R -中 -， 把 它 适 


入 R， 它 又 和 第 二 级 的 Ri 串联 … 依 次 类 推 ， 可 求 出 N 级 电路 
的 等 效 电阻 。 芍 程序 如 下 : 
5 REK Cg5265 


10 1INPUT N,RO,R1,R2 
28 PRINT “KR” 


36 BR=R 

40 FOR K=l TO N 

50  R=R+R1l 

6 R-RsR27(R+R2) 

76 PRINT K,R R 

36 NEXT K 1.875 

38 END 2.18369859 
2.27769736 

JRUN 2.39533973 

?34,1,2,5 

K 

] 

2 

3 


从 键盘 送 义 电路 级 数 N， 和 Ru。，Ri,，R: 三 个 电阻 值 ， 
就 打印 出 每 一 角 的 等 效 电 阻 。 
例 5 。 求 曲线 y = sinx 与 X 轴 (0 入 x 入 z) 所 围 成 的 面积 S。 


我 们 利用 随机 函数 可 以 求 得 近似 值 ， 其 方法 如 下 : 
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我 们 让 计算 机 产生 两 个 随机 函数 X、y， 使 0 入 工 < 7 
0<y 委 1。 这 样 的 一 对 X，y 表 示 撼 形 0 ABC 中 的 一 个 点 ， 这 
样 的 点 落 在 抵 形 中 的 什么 地 方 是 不 确定 的 。 当 产生 的 点 足够 
多 时 ， 落 在 阴影 部 分 的 点 数 M 与 落 在 矩形 0 ABC 中 的 总 点 数 
N 的 比 就 近似 等 于 它们 的 面积 比 。 


阴影 面积 - 到 


和 拢 形 面积 “和 


-阴影 面积 = 矩形 面积 x 的 =1.x， 业 
随机 点 的 横 坐标 x 范 围 在 0 ~ 之 间 ， 纵 坐标 为 0 ~ 工 之 
间 ， 若 其 纵 坐 标 yr<sin (x) ， 则 该 点 落 在 阴影 范围 内 ,否则 
认为 它 落 在 阴影 范围 外 。 其 程序 如 下 ; 


5 REH C65206 
19 1NPUT N 
20 i=9: p=3.14159265 
3 FOR Isl TO N 
486  X=PsRND(1) : Y=RNDC1) 
586 1F Y=SIN(CX) THEN H=iH+1 
66 NEXT 1 
76 SepeM/N 
88 PRINT“S=”;iS 
END 


JRUN 
?596 
S=1.99176974 


例 6 。 打 印 正弦 曲线 - 并 入 X 委 和 
程序 中 的 第 20 行 打印 坐标 角度 ，30 行 用 TAB 函数 定位 


打印 洲 号 。 
5 RENX C95207 
28 FOR X=-3.14159 T0 3.14159 STEP 
3.134159/18 
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26 PRINT LNT(Xsi8873.14159)? 
39 PRINT TAB(23417SSIN(XI]) 1 名” 
48 NEXT X 


56 8ND 


执行 这 个 程序 ， 就 可 打印 出 王 嘴 曲线; 


3RUN 
-180 
-179 
-159 
-159 
-140 
-139 
-120 
-119 
-106 
-90 
-80 
-70 
-60 
-50 
-40 
-6 
-20 
-10 
0 

10 
20 
36 
40 
50 
00 
79 
86 
90 
100 
110 
129 
138 
149 
150 


160 
17m 


认 
字 
说 


雪 
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三 他 ”多重 循环 程序 


一 、 什 么 是 多 重 循环 

“我们 在 第 一 节 曾 经 说 过 循环 体内 可 以 再 用 循环 语句 ， 这 
就 是 多 重 循环 ， 也 叫 循环 嵌 套 。 例 如 下 面 打 印 九 九 表 的 程序 
就 是 一 个 二 重 循环 程序 : 


5 REN C65361 

10 POR A=l T0 9 

20 FOR 8=1 T0 9 

30  C=AsB 

40 PRINT A 和 证" 8 和 = 5C 
56 NEXT 8 

68 NEXT A 

76 END 


从 这 个 二 重 循环 程序 中 ， 我 们 可 以 看 出 ， 外 层 循环 控制 
变量 A 〈 被 乘 数 ) 每 取得 荆 个 值 内 层 循 环 控 制 变量 B ( 乘 
数 ) 就 依次 取得 9 个 值 ， 即 循环 9 次 。 第 30 行 和 40 行 共 要 执 
行 81 次 。 也 就 是 说 ， 这 个 二 重 循环 程序 是 这 样 执行 的 : 

1。 外 层 循环 变量 A， 取 得 初 值 1 ,并 记 下 终 值 9 和 和 步 长 1。 

2。 执 行 循环 体 。 内 层 循环 变量 B 取 得 初 值 1 ， 记 下 内 层 
终 值 9 和 步 长 1。 

3。 执 行内 层 循环 体 。 

4。 遇 到 内 层 循环 的 NEXT B, 则 内 层 循环 变量 B 增 加 一 
个 步 长 , 若 B 入 9 ,就 再 执行 内 层 循环 体 ，…… 直到 内 层 循环 
变量 B> 9 ， 才 退出 内 层 循环 ， 执 行 NEXT B 的 后 读 语 句 。 

5. 遇 到 外 层 循环 的 NEXT A， 则 外 层 循环 变量 A 增 加 一 
个 步 长 ， 若 A 入 9， 就 重复 执行 2、3、4 步 ， 每 重复 一 
次 ， 循 环 变量 A 增 加 一 个 步 长 , 直到 A>9 就 退出 外 层 循环 。 
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依 此 类 推 ， 可 知 三 重 、 四 重 …N 循 环 语 名 的 执行 过 程 。 
例如 下 面 程序 (a) 中 循环 体 S 共 执行 24 次 ， 程 序 (b) 


外 的 循环 体 共 执 行 120 次 。 


100 FOR I=1 TO2 
110 FOR J=1 了 TO14 

120 FOR 天 =1TO3 
: S 

210 NEXT 开 

.220 NEXT J 

250 NEXT I 


(a) 


100 FOR TI=TTOS5S 
110 FOR J=1TO3 
120 FOR KK=1TO14 
130 FOR L=1TO2 
: 9 
210 NEX 人 工 
220 NEXT 开 
210 NEXT 了 
240 NEXT I 
(b) 


(a) 执 行 次 数 3 x4x2=24  (b) 执 行 次 数 2 x 4 x3 x5 
= 120 次 

二 、 关 于 多 重 循环 的 几 点 说 明 

1。 笛 环 左 套 深 度 

多 重 循 四 岂 套 的 层 数 叫做 循环 由 套 深 度 ， 中 华 学 习 机 
如 ASIC 只 允许 嵌 套 10 层 ， 也 识 是 说 允 循 环 谨 套 深 谎 为 10。 

2。 循 环 变量 的 应 用 

多 重 循环 中 每 一 层 的 循 斌 变量 必须 使 用 不 同 的 变量 名 。 

我 们 在 前 面 曾 讲 过 变量 名 实质 上 是 内 存 地 址 单元 的 代 
号 。 在 同一 个 程序 中 , 同一 个 变量 名 标志 着 同一 个 内 存 她 址 。 
多 重 循环 中 ,每 层 的 循环 变量 分 别 用 各 自 的 取 值 控制 各 层 的 
ee 如 果 某 些 层 的 循环 变量 同名 ， 循 环 的 控制 就 会 乱 套 。 

一 层 循环 变量 的 使 用 要 求 ， 和 第 一 节 中 讲 的 一 样 。 
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3。NEXT 语 名 的 使 用 

在 单 重 循环 中 ，NEXT 后 面 的 变量 可 以 省 略 ， 而 在 多 重 
循环 中 ，NEXT 后 面 的 变量 最 好 不 要 省 略 ， 这 样 可 以 使 程序 
层次 清楚 ， 而 且 不 易 产生 错误 。 

在 几 个 NEXT 语 名 连续 使 用 时 ， 可 以 合并 写成 一 个 NE 
XT 话 句 ，NEXT 后 面 按 从 内 层 到 外 层 的 顺序 依次 列 出 控 制 
变量 名 ， 变 量 之 间 用 逗号 分 隔 。 例 如 程序 (a) 可 以 写成 程 
序 〈(b) 的 形式 : 

一 一 100 FOR I=1 TO 10 六 一 一 130 FOR I=1 TO 10 

一 一 120 FOR J=I TO 8 


一 一 120 FOR J=1 TO 8 
六 130 .FOR 开 =TITO 5 


--130 FOR 开 =1 TO 开 


240 NEXT La40 NEXT K, 了 JI 
250 NEXTJ 
”260 NEXTI 
(3) (b) 
4。 人 循环 不 得 交叉 
在 多 重 循环 程序 中 ， 里 面 的 一 层 必须 全 部 被 外 面 一 层 
“ 包 住 ” 。 各 层 循 环 之 间 不 得 交叉 。 比 如 : 下 面 几 种 结构 都 
是 合法 的 ; 


EEET 
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而 下 面 的 结构 是 不 允许 的 : 


E 正 医 志 


5。 多 重 循环 中 的 转移 语句 

在 单 重 循环 中 曾 说 过 ,在 循环 体内 可 以 使 用 转移 语句 ， 
允许 在 循环 体内 部 转移 ， 也 人 允许 从 循环 体内 转 到 循环 体外 ， 
但 是 不 允许 从 循环 体内 不 经 过 NEXT 语 句 转 到 本 循环 语 乌 
的 入 口 ， 也 不 允许 从 循环 体外 转 到 循环 体内 。 在 多 重 循环 中 
也 是 适用 的 。 比 如 下 面 的 转移 是 允许 的 ， 


而 下 面 的 转移 则 是 不 允许 的 ， 
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| 口 于 本 
DC 导 所 
思 开 
二 、 多 重 循 坏 的 程序 设计 
我 们 在 前 面 已 经 说 过 ， 程 序 的 运行 时 间 ， 主 要 取决 于 循 
环 结 克 的 程序 的 运行 时 间 。 对 于 多 重 循 荆 程 序 更 是 这 样 。 在 
多 重 循环 程序 设计 中 要 特别 注意 减少 循环 层次 和 适当 地 选取 
循环 变量 的 初 值 、 终 值 和 步 长 ， 从 而 减少 循环 次 数 。 此 外 ， 
要 把 不 随 循环 变量 变化 的 语句 和 运算 放 在 该 层 循环 之 外 。 
下 面 我 们 给 出 几 个 多 重 循环 的 例子 : 
例 1. 打 印 如 图 5-3 的 三 角 数 阵 。 
观察 这 个 三 角 数 阵 ， 一 共 9 行 ， 依 次 打印 数字 1 到 9， 
每 一 列 打印 数字 个 数 是 行 数 x 2-1。 每 行 的 起 始 位 置 粒 当 是 
中 心 位 置 〈 即 工 所 在 位 置 依次 减 去 行 数 。 这 样 我 们 可 以 用 一 
个 循环 变量 控制 行 ， 用 一 个 循环 变量 控制 列 ， 写 出 如 下 的 三 
重 环 循 程序 〈 数 阵 层 数 由 键盘 输入 ) 。 


5 RESH C95392-1 1 

7 INPUT N 222 

196 FOR 1=<1 TDN 33333 

206 PRINT TAB(186-1) 4444444 

36 FOR J=l1 TO 2#1-1 555555555 . 

48 PRINT 1; 66866666688 

56 NEXT ] 77377777777737 
68 PRINT 8888588888888885 
7T6 NEXT 1 95999939999999999 
86 END 图 5-3 


124 


第 60 行 的 作用 是 换行 ， 输 出 一 行 后 ， 就 要 使 光标 或 打印 
志 头 位 于 下 一 行 的 开头 位 置 。 从 键盘 输入 N (0<N<9 ) ， 
就 可 以 打印 出 1 ~ 的 数字 纽 或 的 三 角 数 阵 。 

例 2. 打 印 1~ 太 之 间 的 所 有 质数 。 

质数 也 称 为 素数 、 凡 是 除了 1 工 和 它 本 身 之 外 ， 再 没有 其 
他 约 数 的 大 于 工 的 自然 数 称 为 质数 ， 在 数学 上 可 以 证 明 ， 只 
要 判别 整数 N 不 能 被 每 一 个 大 于 工 而 小 于 等 于 页 的 自然 数 
整除 ， 则 六 就 是 质数 。 求 质数 程序 如 下 : 


5 RENM C05309 

196 INPUT 时 

20 PRINT 2;””， 

30 FOR I=3 TON STEP 2 

40 FOR J=2 TO SQR(CI) 

50 IF 1/J=INT(I/J) THEN 80 
60 NEXT 

70 pPRINT 1 ”” 

80 NEXT 【 

90 END 


用 这 个 程序 求 100 以 内 的 所 有 质数 。 从 键盘 输入 100。 
1RUN 
?106 
2.357111317 19 232931 3?341 43 4 
53 59 681 67 .71 73 79 83 89 97 


例 5。 打 印 如 图 5-4 的 数字 菱形 ， 其 中 菱形 的 最 外 层 数 虹 
键盘 输入 。 


5 RENH C85364 

16 INPUT N 

26 FOR 1=6 70 28N 

386 PRINT TAB(20+ABS(N-1)-N) 
40 FOR J=N TO ABS(CN-I) STEP -人 & 
53 PRINT J; 
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2 NEXT 3 了 : 

76 IF J=N-1 THEN 11@ 
86 FOR P=J+y2 ION 

98 PRINT P; 

1068 NEXYT 忆 

1 PRINT 

128 NEXT 工 

138 END 


程序 中 20 行 控制 共 打印 多 少 行 ，30 行 给 每 行 打印 的 第 一 个 字 
符 定位 。 

JRUN 

?2 


JRUN 
?5 
5 
545 
54345 
5432345 
543212345 
54321612345 
543212345 
5432345 
54345 
545 
5 


图 5-4 


例 4 。 求 100 以 内 的 所 有 色 股 数组 。 
对 于 任意 3 个 自然 数 A，B，C， 如 果 满 足 等 式 ， 
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Az:+B:= C? 
则 称 自 然 数 A， B， C 为 一 组 勾 股 数 。 
由 于 三 个 数字 中 的 每 一 个 都 可 能 取 100 以 内 的 任何 一 个 ， 
但 是 三 个 数 不 可 能 有 任意 两 个 相等 ， 所 以 就 不 必 每 个 循 让 都 
是 从 1 开始 ， 所 以 可 以 写 出 以 下 程序 : 
5 REH (85305-3 
19 FOR A=l1 TO0 100 
23 FOR B=A+1l TO 160 
30 FOR C=B+l T0 100 
49 IF .AsA+B#yB=CsC THEN 


PRINT A -~ 3B2 -3C 
56 NEXT C,B,A 
FEND 


]RUN 
3--4--5 
5--~12--13 
(6--8--18 
7--24--25 
8--15--17 
3--12--15 


60--63--87 
66--80--100 
65--72--97- 


这 个 程序 要 环 循 100 x 100 x 100 = 1000000 次 ， 在 中 华 学 
习 机 上 执行 一 次 要 大 约 半 个 小 时 ， 能 否 加 快 它 的 运行 呢 ? 当 
然 可 以 。 
既然 A:+ B: 关 C2， 那 么 A，B，C 之 间 必 然 是 ， 如果 
A:+B:>>10000， 则 不 管 已 取 什 么 值 ， 都 有 A: + B:>>02， 因 
而 就 不 可 能 有 A:+ B: = C? 的 情况 。 同 样 ,在 第 三 层 循环 中 ， 
一 旦 A:+ 8B2<C2，,C 再 继续 增 大 也 绝 不 可 能 有 A:+ B?: = C?， 
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这 样 ， 我 们 把 程序 改 成 以 下 形式 ， 运 行 起 来 就 快 多 了 。 


5 ”卫生 6C865385S-b 

1 FOR 4A=1 TO 100 

286 FOR 3B=A+i T0 100 

36 1F AsA+BSB>10660 THEN 106 
4@8 FOR C=B+1 TO 100 

36 1F A?A+BsB(CSC TEEN 99 
t@ 1F AbA+BesB>CsC THEN 80 
78 PRINT AI -8 -2 

8G NEXT 《 

386 NEXT 8 

189 NEXT 上 

1 END 


减少 环 循 内 部 的 运算 次 数 ， 是 加 快 程序 运行 的 主要 手段 
之 一 。 


习题 五 

1。 写 出 下 列 程序 执行 结果 并 运行 程序 核对 
(1) 10LETX=3 

20 FOR I=3 TO 5 

30 PRINT X，“ ”) 

40 NEXT TI 

50 END 
(2) 10LET X=0 

20 FOR X= -5 TO= -93S1EP= -2 

30 工 ET X=X+1 

40 PRINT X，“ >” 

50 LET X=X-2 

60 NEXT X 

70 .END 


有 28 


(3) 10 FOR I=1TO6 
20 READ X 
30 PRINT TAB (TD ，XI; 
40 工 ET I=I+2 
50 NEXT 工 
60 了 PRINT 
70 PRINT “ITI=2; 
80 DATA 5，7，9，10，6，8， 
90 END 
2。 求 下 列 各 式 和 : 
(1) SS=ai+aiq 十 Riq2-+。e 十 hdqn -1 
(2) SS=cosa+cos3a+cos5aC+Ccos(2n -1)Q 


攻 和 
《83) 人 + 可 + 本 十 和 
(4》 S=1.2.3+2.3.4+。ooe+ns(n+l。(n+2)》 
2 & 4 竺 6 
训 AN 区 @ -一 @ @ -一 -eooeoe 训 也 
用 公式 人 取 前 2 


个 因子 ， 求 出 工 的 近似 值 。 
4。 用 多 重 循环 语句 开 印 下 列 图 形 ， 
(1) 水 玉米 炒米 米 米 (23 

沙洲 水 水 玉米 迪 玉米 

玉米 炒米 米 束 凡 
水 来 米 洲 米 洲 水 水 水 
玉米 沙沙 来 炒米 半 和 
水 炒米 来 炒米 炒 水 冰 

迪 洲 洲 天 来 炒米 


5。 某 个 三 位 数 减 去 它 三 个 数字 的 和 所 得 的 差 为 639， 求 
这 个 三 位 数 ? 
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6。 模 拟 概 率 试验 ， 口 袋 里 有 8 只 红 球 ，4 只 黑 球 ， 人 每 
次 从 中 模 出 三 个 ， 然 后 放 回 口袋 里 ， 如 此 进行 N 次 ， 试 编 一 
程序 模拟 上 述 试验 ， 用 有 表示 红 球 ，B 表 示 黑 球 。 并 且 统计 
每 次 模 得 三 个 球 都 是 红 球 的 次 数 ， 计 算 并 打印 出 这 类 事件 发 
生 的 频率 。 

编程 打印 出 y= Ax:+Bx+C 的 图 形 ， 从 键盘 输 人 A,B， 
C 值 ， 并 改变 A，B，C 值 〈 使 A 分 别 取 正 、 负 、0 ) ， 观察 
抛物 线 的 变化 情况 。 
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第 六 章 数组 和 自 定 义 函 数 


在 第 -- 章 ， 我 们 已 介绍 了 变量 和 内 部 函数 的 概念 ， 并 在 
前 几 章 的 程序 中 使 用 了 他 们 ， 在 这 章 我 们 将 介绍 BASIC 语 言 
中 的 另外 两 个 基本 概念 ， 数 组 和 自 定义 函数 。 


第 一 节 “数组 和 下 标 变量 


第 一 章 中 所 介绍 的 变量 ， 叫 做 简单 变量 ， 一 个 变量 只 能 
存放 一 个 数字 或 一 个 字符 串 。 简 单 变量 有 时 用 起 来 就 很 不 方 
便 甚 至 不 可 能 。 比 如 我 们 要 建立 学 生 的 学 籍 ,每 个 学 生 都 要 在 
放学 号 、 性 别 、 年 龄 、 各 科 成 绩 、 至 少 要 十 几 个 变量 、 如 果 
要 有 成 百 上 千 学 生 ， 那 么 所 要 使 用 的 变量 将 是 成 千 上 万 ， 
8ASIC 语 言 能 识别 的 变量 名 总 共 不 到 工 千 个 ， 那 就 没有 办 法 
使 用 了 。 为 了 解决 这 一 类 问题 ， 就 引入 了 数组 和 下 标 变 晤 的 

一 组 有 序 的 数 或 一 组 有 序 的 变量 就 构成 一 个 数组 。 比 
如 , 上 面 每 个 学 生 的 学 号 .性 别 、 年 龄 各 科 成 绩 ， 就 可 以 用 一 
个 数组 S(ID) ,I= 1、2 … 来 表示 。S(1) 存放 学 生 学 号 、 
3S(2 ) 存放 性 别 、S(3 ) 存放 年 龄 ，S(4 ) 存放 数学 成 绩 ， 
S(5 ) 存放 语文 成 绩 等 等 。 在 这 里 S 就 是 一 个 数组 ，S 数 组 中 
的 每 个 元 素 S (1) 、S(2) 、S(3) 叫做 数组 元 素 ， 也 
诈 做 下 标 变量 。 

-我 们 还 可 以 把 成 百 上 千 学 生 的 学 号 、 性 别 、 年 龄 、 各 科 
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成 绩 用 一 个 数组 T(I，J> ，I= 1，2… 本 = 1，2 … 来 表示 ， 
那么 T(1，1D) ，T(，2) T(1，3) ，T(1，4 ) … 分 别 存 
放 第 一 个 学 生 的 学 号 .性 别 . 年 龄 .数学 成 绩 等 等 ， 工 (2, 1)， 
人 (2，2) ， 补 (2，3) ， 下 (2，4) … 分 别 存放 第 二 个 学 
生 的 学 号 、 性 别 、 年 龄 、 数 学 成 绩 等 等 ， 人 下 〈3，1) ， 工 (3， 
2) ， 工 (3，3) ， 人 (3，4) … 表 示 第 三 个 学 生 的 学 号 、 性 
别 、 年 龄 ， 数 学 成 绩 等 等 …… 在 这 里 工 也 是 一 个 数组 ， 工 数 
组 中 的 每 个 元 素 下 (1，1) ，T(1， 2) … 工 (2，1 ， 
了 (2,2)… 也 叫做 数组 元 素 或 下 标 变量 。 

数组 $ 的 每 个 下 标 变量 只 有 一 个 下 标 ， 这 种 具有 一 个 下 
标的 数组 称 做 一 维 数组 。 数 组 人工 的 每 个 下 标 变量 有 两 个 下 
标 ， 这 种 具有 双 下 标的 数组 称 为 二 维 数组 。 同 理 可 知 还 可 以 


有 三 维 数组 ， 四 维 数组 ……。 
我 们 可 以 用 学 生 的 学 籍 存 档 来 非常 形象 地 描述 数组 的 结 
构 : 


一 维 数组 只 存放 一 个 学 生 的 学 号 、 性 别 、 年 龄 、 各 科 : 
成 绩 〈 例 如 共有 15 项 ) ， 它 们 是 A (1) ~A (15) 。 

二 维 数 组 好 比 是 一 个 班 的 学 生 的 学 籍 表 〈 如 每 张 玫 可 登 : 
第 40 人 ) ， 第 一 个 学 生 登 记 在 第 一 行 即 A(1, 1D) ~ A(l,15)， 
记 二 个 学 生 登 记 在 第 二 行 即 A (2，1) ~A (2，15) ，，* 
第 40 个 学 生 登 记 在 第 40 行 A (40，1) ~A (40，15) 。 

三 维 数组 好 比 一 个 年 级 《比如 四 个 班 ) 的 学 生 学 籍 表 
册 ， 一 册 有 四 张 表 ， 一 班 学 生 登 记 在 第 一 张 表 ( 即 A(1, 1, 1) 
一 A (1 40,15)) ,二 班 学 后 登记 在 第 二 张 表 ( 即 A(2,1 ,1) 
~A (A2,40,15))… 则 四 班 学 生 登 记 在 第 四 张 表 (A(4,1,1) 
~A (4，40，15)) 。 

四 维 数 组 好 比 一 个 学 校 六 个 年 级 的 学 生 学 籍 表 六 册 汇 集 . 
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成 卷 。 五 维 数组 好 比 一 个 区 里 几 十 所 或 上 百 所 学 校 的 这 种 着 
本 放 入 一 个 文件 柜 ， 那 么 可 想 而 知 ， 六 维 数组 应 当 是 全 市 十 
几 个 区 的 学 生 学 籍 柜 了 。 依 次 类 推 。 

有 了 这 样 一 个 数组 结构 ， 可 以 很 方便 地 根据 每 个 下 标 变 
量 的 下 标 查 得 这 个 变 景 的 值 。 


第 二 节 ”数组 说 明 语 名 


程序 运行 中 ，BASIC 解 释 程序 要 对 每 个 数组 建立 一 个 
数组 表 ， 以 便 程序 运行 中 对 任何 一 个 下 标 变量 进行 在 取 。 每 
个 数组 的 维 数 和 每 维 的 大 小 不 同 ， 所 以 变量 的 长 度 也 不 同 。 
在 没有 任何 说 明 的 情况 下 ， 解 释 程 序 自 动 地 给 定 每 维 的 下 标 
和 值 是 10， 即 由 0~ 10 共 11 个 。 也 就 是 说 : 一 维 数组 可 以 最 多 
11 个 元 素 ， 二 维 数组 可 以 最 多 11x 11= 121 个 元素 ， 三 素数 
组 可 以 11x1l1x1ll=1331 个 元 素 ， 以 此 类 推 。 

如 果 你 需要 的 不 是 每 维 11 个 元 素 ， 就 要 用 数组 说 明 语 
名 BASIC 解 释 程序 说 明 ， 计 算 机 会 根据 数组 说 明 语 名 的 说 明 
来 建立 数组 表 。 

一 、 数 组 说 明 语 句 的 格式 

行 号 DIM 数组 名 〈 下 标 表 ) 

其 中 : 

数组 名 : 与 变量 名 的 要 求 相 同 ， 数 组 类 型 〈 整 型 数组 、 
实 型 数组 、 字 符 串 型 数组 ) 和 类 型 的 表示 方式 也 与 变量 相 
间 。 

下 标 表 :下 标 表 要 写 在 圆 括号 中 每 一 维 都 要 写 该 下 标 可 
所 取 得 的 最 大 值 ， 每 维 之 间 用 逗号 分 隔 。 

用 一 个 数组 说 明 语 名 可 以 说 明 多 个 数组 ， 各 个 数组 说 明 
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符 之 间 用 喜 号 分 隔 。 
例如 : 

20 DIM x(5)，A$ (15，20) ，C% (30) ， 
D (3，5，8) 

二 、 数 级 说 明 语 名 的 功能 

DIM 语句 是 非 执 行 语句 ， 它 只 是 告诉 BASIC 解 释 程 序 
如 何 去 建 立 数组 表 。 比 如 , BASIC 解释 程序 根据 20 行 的 DIM 
语句 ， 会 做 如 下 工作 : 

1。 由 数组 名 建立 数组 表 的 表 头 ， 也 就 是 说 数组 名 是 数 
组 表 第 一 个 地 址 的 代号 。 

2. 根 据 数组 名 后 的 菊 型 标识 符 和 下 标 表 中 的 维 数 和 每 一 
维 的 最 大 下 标 值 留 出 一 片 存 贮 单元 空间 : 

X (5) : 从 代号 为 和 的 地 址 开始 留 出 存放 6 个 实 型 数 的 
空间 。 

A$(15 ,20) : 从 代号 为 A 的 地 址 开始 留 出 登录 16x32t 
= 336 个 字符 帅 的 内 存 起 始 地 址 及 串 长 的 空间 。 

C% (30) : 从 代号 为 C 的 地 址 开始 留 出 存放 31 个 整数 
的 空间 

D(3，5，8): 从 代号 为 D 的 地 址 开始 留 出 存放 4x 6 x9 
= 216 个 实 型 数 的 空间 

3。 把 这 些 数组 的 每 个 下 标 变量 都 初始 化 为 0 或 是 空 
趾 。 

三 、 关 于 数组 说 明 语 句 的 几 点 说 明 

1。 任 何 一 个 数组 ， 只 能 使 用 DIM 语句 说 明 一 次 。 

2。 如 果 要 用 DIM 语句 说 明 一 个 数组 ， 则 必须 先 对 其 说 
明 ， 而 后 再 使 用 。 

3。 被 说 明 数 组 的 每 一 维 都 可 以 是 常数 ， 已 赋 过 值 的 数 
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值 型 变量 和 下 标 变量 、 也 可 以 是 算术 表达 式 ， 其 值 必 须 是 正 
数 、 若 是 小 数 它 将 自动 取 整 。 
例如 : 

10 JINPUT 开 ，J， 工 

20 D (1) =6 关 了 J 


50 DIM A(3， 下 ) ， B(5x<K) ，C(CODG) )， 
E(CSQR (K) ，TA3) 


50 行 的 数组 说 明 语 句 是 合法 的 。 

4。 中 华 学 习 机 BASIC 规 定数 组 的 维 数 最 多 可 达 88 维 。 
每 一 维 的 最 大 下 标 可 达 32767。 在 实际 使 用 中 ， 巾 于 受 内 在 
限制 往往 达 不 到 88 维 和 最 大 下 标 值 。 

四 、 关 于 下 标 变 量 的 几 点 说 明 

1。 数 组 名 及 其 类 型 标识 符 就 确 了 该 数组 中 每 个 元 素 的 
类 型 。 一 个 数组 中 的 各 个 元 素 具 有 同 种 类 型 。 

2。 中华 学 习 机 BASIC 规 定数 组 中 每 一 维 的 最 小 下 标 是 
0 。 例 如 A (0) 是 一 维 数组 的 第 -一 个 元 素 ，A(0,0,0) 是 三 
维 数组 的 第 一 个 元 素 。 

3。 下 标 变量 的 下 标 一 定 写 在 圆 括 号 中 ， 各 维 世 间 的 下 
标 用 逐 号 分 隔 ， 每 个 下 标 都 可 以 是 数字 、 数 值 型 变量 、 数 值 
型 下 标 变量 、 算 术 表达 式 〈 其 值 是非 负 数 ， 若 是 小 数 则 币 动 
取 整 。) 
例如 : 

AICK) ，A (CA(I)) ，A(CBxSIN (X) ， 开 个 3) 
都 是 合法 的 下 标 变量 

4。 下 标 变量 是 按 先 行 后 列 的 顺序 存 贮 的 。 比 如 数组 
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A (3，2) 各 下 标 变量 排列 如 图 。 下 标 变量 的 维 数 必须 和 定 
义 的 该 数组 维 数 相等 ， 下 长 变 量 每 维 的 最 大 下 标 不 得 超出 该 


数组 定义 的 下 标 最 大 值 。 


第 三 节 ”数组 应 用 举例 


数组 在 实际 中 应 用 是 相当 广泛 的 ， 使 用 数组 可 以 使 程序 
中 的 数据 不 再 赴 杂 乱 无 章 的 。 使 得 程序 清 晒 易 恋 。 在 编制 程 
序 时 ， 要 尽量 准确 地 估算 出 所 用 数组 的 维 数 及 每 维 的 大 小 ， 
这 样 才 能 有 效 地 利用 内 存 空间 。 下 面 给 出 一 些 实例 : 

例 1 .打印 杨 汐 三 角形 : 

我 们 都 知道 

(a+b)2=32+2ab+Pbs 

(Ca+b)s= 2 十 3a2b 十 3ab2+bs 

(a+b)4=a4 二 4asb+6a2b2+4ab3? 十 如 4 
继续 写 下 汉 。 二 项 式 Ca+b)"” (Cn> 三 0 的 自然 数 ) 可 以 用 赣 
推 的 办 法 得 到 ， 每 次 的 系数 形成 一 个 三 角形 : 


二 0 
还 可 以 继续 写 下 去 。 这 个 三 角形 称 为 杨 灼 三 人 角形。 这 个 三 角 
形 每 行 两 问 都 是 1，' 其 他 各 数 部 等 于 上 面 一 行商 数 之 和 。 求 
出 一 行 系数 就 打印 一 行 ， 这 样 我 们 可 以 用 一 个 一 维 数 扩 存 放 
每 行 的 系数 。 
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AGOJ) =A(I-1) +A(D 
释 厅 如 下 ， 


5 REN C86361 

18 INPUT “N=”i 

28 DIM ACN+T) 

33 ACID=1 

4@ FOR li TO N+1 

绚 FOR J=i1 TO 1STEP -1 
6 ARAJ)=A(J)3ACJ-1) 

37G FRINT TAB(C21+122-J34) ATJI) 3 
80 NEXT : 

986 PRINT 

1009 NEXT 了 

116 END 


在 这 个 程序 中 ， 从 键盘 输入 二 项 式 的 指 灼 N。， 由 于 屏幕 
所 限 ，N 必须 不 大 于 9 。 


18U 


1 6 1 2015 6 71 
1 221 535 2 
1 8 .2856376 5 288 1! 
1 9 3684 il26el284 36 9 8 


例 2 .有 一 只 猫 抓 了 几 只 老 鼠 ， 猫 对 老鼠 们 说 : “你 个 
站 一 圈 ， 我 从 1 开始 数 , 数 到 第 五 只 我 就 吃 掉 , 但 是 最 后 剩 下 
的 一 只 我 放 你 逃命 ， 以 示 本 猫 宽 宏 大 量 。” 有 一 只 小 白 老鼠 
非常 取 明 ， 它 总 站 在 一 个 合适 的 位 置 逃 得 性 命 ， 请 编 一 个 程 
冶 ， 打 印 出 老鼠 被 吃 掉 的 顺序 和 白 老 鼠 的 位 置 。 

我 们 可 以 用 一 个 一 维 数 组 的 下 标 代 表 图 围 的 顺序 位 置 ， 
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每 个 下 标 变 量 的 值 都 令 其 为 1 ， 表 示 有 一 只 老鼠 ， 老 鼠 被 吃 
掉 后 ， 令 该 下 标 变量 的 值 为 0 ， 并 打印 共 下 值 。 其 程序 如 
下 : 

5 RENH C66362 

136 INPUT NN 

28 DIM A(N) 

36 FOR I=1 TO 

46 ACID=1l 

58 NEXT 1 

60 K=6: L=0 

76 FOR 1=1 T0 

86 L=L+A(CT) 

98 IF L》5 THEN 129 

108 PRINT 1 “; 

119 A(1)=9: K=K+1: Lz8 

126 NEXT 1 

136 IF K<N THEN 79 

146 END 


51628194131237116 


]RUN 
?17 
5161539166134148217121711 


如 果 共 13 只 老鼠 ， 白 老鼠 应 站 在 第 六 个 位 置 上 ， 若 共 17 
只 老 猫 ， 白 老鼠 则 应 站 在 第 11 个 位 置 上 。 小 白 老 猫 每 次 站 在 
最 后 转 出 数字 的 那个 位 置 上 ， 就 不 会 被 猫 吃 掉 。 

这 个 题目 还 有 多 种 解法 ， 在 其 他 参考 书 上 可 以 看 到 。 

例 5 .用 气泡 法 进行 排序 。 

排序 的 问题 是 常常 用 到 的 ， 比 如 学 生 考 试 后 按 分 数 高 低 
排队 ， 把 英文 单词 按 字 母 表 顺序 排序 ， 最 常用 的 排序 方法 是 
气泡 法 。 
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气泡 法 的 特点 是 ， 把 要 进行 排序 的 N 个 数据 放 入 一 维 给 
AN) 中 ， 从 前 向 后 依次 每 两 个 相 邻 元 素 进 行 比较 ， 如 果 
前 面 元 素 小 后 面 元 素 大 就 向 后 继续 比较 ， 如 果 前 面 元 素 大 后 
面 元 素 小 就 交换 两 个 元 素 的 位 置 ， 再 继续 向 后 比较 ， 经 过 
n - 1 次 比较 后 ， 就 可 以 使 得 A _(N) 中 最 后 一 个 元 素 最 大 ， 
然后 再 在 数组 A (N) 中 除去 最 后 一 个 元 素 外 进行 类 似 的 
mn - 2 次 比较 .…… 这 个 过 程 ， 就 象 水 里 的 气泡 逐渐 升 向 水 面 一 
样 ， 所 以 电气 泡 法 。 

在 这 要 说 明 一 点 ， 要 交换 变量 A 和 B 的 内 容 ， 不 能 写成 
两 个 冉 值 语句 A = B 和 B = A, 当 B 的 值 赋 给 A 时 ,A 中 原来 的 值 
就 委 失 了 ， 而 得 到 了 B 的 值 ， 再 用 及 赋 与 B， 其 结果 是 A.B 
具有 同一 个 值 。 所 以 ， 要 交换 变量 A、B 里 的 值 ， 必 须 用 第 
三 个 变量 C 暂 存 A 中 的 值 ， 可 以 写成 :C=A:A=B:B= C 三 个 
冉 值 语句 。 当 然 也 可 以 用 C 暂 存 B 中 的 值 ， 写 成 ，C = B: 
B=A:A = C 三 个 赋值 语句 。 

下 面 是 一 个 把 N 个 数字 进行 排序 的 程序 ， 数 字 个 数 和 数 
字 用 READ 语 句 读 入 : 

尼 EN C686383 

106 READ 

2g Dii AN) 

39 FOR jz=l TON 

48 READ A(LI) 

5@6 NEXT ! 

68 FOR K=N TO 2 STEP -1 

78 FOR 1=1 TO K-1 

806 IF ACT)>A(I+1) THEN 106 
-99 C=A(1): AI)=ACIt+tl):， AI+1)zC 
100 NEXT 上 

110 NEXT K 

126 FOR 1=1 TO N 


138 PRINT A(1)3” “， 
148 NEXT 1 


139 


158 DATA 10,35,.9b,23,56.71,15,24,31,19,77 
06 END 


JRUN 
3 71153531 24 23 19 15 


这 个 程序 的 10~~20 是 数组 说 明 ，30~50 是 箱 人 数据 ， 
60~110 是 排序 ，120~ 140 是 结果 输出 ， 这 个 小 程序 的 结构 
很 清晰 。 

例 4 .日 常 中 所 用 的 许多 表格 , 象 学 生成 绩 单 ， 职 工 的 工 
资 表 ， 工 厂 的 产品 生产 表 ， 通 讯 录 等 等 都 可 以 做 为 数组 来 处 
理 。 下 面 是 一 个 对 若干 学 生 考 试 成 绩 排 队 的 程序 ， 把 学 生 数 
N 、 考 试 科 目 数 、 打 印 的 栏目 ， 以 及 每 个 学 生 的 学 号 、 姓 
名 ， 各 科 成 绩 都 写 在 DATA 语 句 中 读 入 ， 然 后 计算 出 每 个 学 
生 的 总 分 和 各 科 平 均 分 并 把 结果 填 人 表 中 ， 再 根据 总 分 进行 
排队 ， 最 后 以 表格 形式 输出 。 

册 于 学 生 的 姓名 是 字符 串 ， 而 堂 号 和 成 绩 是 数值 型 ， 所 
以 不 能 把 这 张 成 绩 单 作为 一 个 二 维 数组 处 理 ， 而 是 分 成 三 个 
数组 S (N) 放学 号 ，SNS$ (N) 放学 生 姓 名 ，A(N,5) 
放学 生 三 科 成 绩 、 总 成 绩 和 平均 分 。 


5 REY C663584 
18 READ HH 


29 Di SCN),SNS(CN) ,AN,5) 

38@ PRINT “+- 一 -二 一 一 一 一 一 一 一 一 一 ~ 一 一 不 = 一 下 ~ 一 一 + 一 一 一 个 
一 一 一 上 一 一 一 盐 “ 

48 FRINT“!1NQ.1 NAHE ICHAIKATIENGI 
3UMIAYG1” 

50 PRINT “+-~- 一 上 一 -一 ~~- 一 -一 -~ 一 了 一 一个 ~ 一 -一 一 下 
一 ~ 一 《一 一 一 全 
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&8 FOR 1=i TO YN 

7 了 0 READ S(1),SNS(T) 

80 FOR J=1 T0 3 

90 READ ACT1,J) 

108 A(1.4)=A(1,4)+A(1，J) 

119 NEXT J 

120 A(1,5)=1NT(A(T 4)74328.5) 

139 NEXT j 

146 FOR K=N TO 2 3STEP -1 

158 FOR 1=1 TO0 K=1 

16g6 !F A(1,4)>A(I+1,4) THEN 200 

179 FOR L=1 TO 5: Cz=A(T,L): ACT,L)>= 
ACI+l,L): AI+IL)zC: NEXT 上 

1809 C=S(1): S(1)=S(i+l): S(1+l)=C 

196 B3=SNS(1) :SN$(1)=SNS(CI+1) 
SNS(1+1)=BS 

200 NEXT 【 

216 NEXT K 

226 FOR 1=t TON 

236 PRINT “! ;TAB(3)3S(1) TAB(5) 1， 
” ”SNS(C1L) ;TAB(18) 和 1; 

248 FOR J=1 IO0 5 

250 PRINT TAB(4#zJt+15);A(1J); 
TAB(4#J+18) 1 ; 

2609 NEXT J 


296 NEXT 1 

308 DATA 7,1,ZHANG HUA,89,95,92,2,LU 
MIN-MIN;98,96,91,3,WANG LIN-L1,84,98， 
94,4,ZHAO Ki1,88,90,94,5,LU XAO-GAN,75 
,84,78,6.SUEM QA0,79,893,86, 了 ,DENG GANG 
,98,92,94 

316 END 


在 这 个 程序 中 10 一 20 行 定义 了 数组 ，30~ 50 行 打印 表 
头 ，60~130 行 读 人 数据 并 计算 出 每 个 人 的 总 分 、 平 均 分 并 
填 入 数组 的 第 4 列 和 第 5 列 ，140 一 210 行 是 按 总 分 进行 排 
序 ，220 一 290 行 输出 表格 数据 。 
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了 避 生 污 
尹 一 一 一 人 一 一 -人 = 一 一 信 一 -4 一 一 一 了 一 一 全 一 ~ 和 
1N0. 1 NAE ICHAINMATIENGISUNMTIAVYGI 


人 ~ 一 ~+ 一 一 ~ 一 一 -一 一 一 -+ 一 一 一 +~ 一 -+ 一 一 一 了 ~ 一 -4 一 一 一 上 


121LI NIN-MIN 198 198 191 1277192 【 


+4--~-+4-- 一 一 一 一 趟 一 一 一 4 一 一 一 人 一 一 一 全 一 一 一 二 ~ 一 一 个 


I!7 了 71 DENG GANG 198 192 194 1276172 ! 


十 一 一 一 个 一 一 一 一 一 一 一 一 一 一 一 一 牛 一 一 一 趟 一 一 一 个 一 一 一 十 一 一 一 十 一 一 一 个 


I131WANG LIN-Lil84 198 194 1276192 【 


++~~~+ -一 一 一 -一 上 一 一 一 上 一 一 一 上 一 一 一 4 一 一 一 4 一 一 一 个 
141T 2HAO KI 188 1986 194 1272191 1 


十 一 一 一 全 一 -+ 一 一 -了 一 一 一 4 一 一 一 + 一 一 一 一 一 一 个 
| 1 28ANG HUA 188 195 192 1267189 ! 
4- 一 -+ 一 一 -一 + 一 一 ~ 二 一 一 一 二 一 一 一 4 一 一 一 上 一 一 一 个 


I 6 1 SUEN QAO 179 189 186 1254185 【 
+ 一 一 -~ 一 一 ~ 一 一 一 一 一 一 一 -+ 一 一 一 一 一 -十 一 一 个 一 一 -十 一 一 一 十 
151LU XAO-OAN !75 184 178 1237179 1 


二 一 一 一 二 


一 一 一 一 一 ~ 一 二 一 一 - 卡 一 一 -十 一 一 -十 一 一 -二 


信 5 ,打印 任何 一 年 的 年 历 

打印 任何 一 年 的 年 历 要 解决 三 个 问题 ; 

1。 首 先 确定 这 一 年 是 润 年 还 是 平年 。 我 们 可 以 用 第 四 
章 第 三 节 中 讲 过 的 方法 来 确定 。 

2。 其 次 要 确定 该 年 的 元 旦 为 星期 几 。 我 们 可 以 先 用 年 
历 公 式 求 得 ， 

W=Y-l+(Y11)/4-(Y-1)/100+(Y-1)/400+1 
再 把 到 取 整 除 以 7， 所 得 的 余数 即 为 星期 几 。 

3。 打 印 格式 。 我 们 用 外 循环 变量 I 控 制 月 份 ， 用 内 循 
环 变量 J 控 制 打 印 天 数 。 用 每 一 天 的 星期 数 确定 当天 日 期 的 
打印 位 置 。 

我 们 用 数组 R(12) 存 放 12 个 月 的 天 数 (2 月 按 28 天 存 入 )， 
从 键盘 送 入 年 号 ， 如 果 这 年 是 润 年 ， 则 把 R(2) 改 为 29。 
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5 REN C66365 

1 DIH Ri2) 

20 INPUT “Year 这 

36 FOR 1=1 T0 12 

4Q READ RCI) 

50 NEXT 1! 

60 IF INT(Y/4)=Y/4 AND INT(Y/100)<>Y/166 
0R JINT(Y/409)=Y/408 THEN R(2)=29. 

76 V=INT(CY-1)*z497/406)+1 

80 PRINT TAB(8);Y; ”MONTHLY HAGAZ1INE” 

90 PRINT ” ==========-============= 

166 FOR 1=1 T0 12 

110 PR1NT “ 字 训 让 下 证 闻 机 寂 水 市 本 本 字 本 “TAB(21)? 
“多 机 训 名 浆 闷 水 训 可 束 克 于 认可 家 

126 PRINT ”SUNM MON TUES WED THUR FRI 
STA” 

136 FOR J=1 TO RCI) 

140 F=W-1INTCWT7)s37 

156 IF FC>0 THEN 179 

158 PRINT 

176 PRINT TAB(5#F+3)3J? 

180 Y=W+1 

196 NEXT J 

200 PRINT 

210 PRINT 

229 NEXT 1 

236 DATA 31,28,31,30,31,30,31,31,36,31， 
380,31 

246 END 


]RUN 
Year:1988 
1988 WONTHLY MAGAZYNE 
补 认 永 可 可 事 市 下 市 训 冰 本 训 事 本。 ] 本 训 证 本 本 事 训 让 机 本 本 本 本 可 本 
SUN NMHON TUES WED THUR FRI SAT 
1 2 
3 4 5 [ 了 8 9 
10 11 12 13 14 15 16 
17 18 IlI9 20 21 22 23 
24 25 26 27 28 28 36 
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检 仿 六 璐 市古 襄 合 家 训 人 训 本 水 本 了。 训 认 要 评介 证 本 可 宙 记事 训 训 训 克 


SUN MON TUES WED THUR FRI 


1 2 3 避 5 
带 8 9 I9 1 12 
i4 15 1 17 18 19 
2!1 22 233 24 235 2 
28 ”29 


SAT 


水 本 唐 冰 训 交 本 可 训 记 训 训话 宁 。 了 农家 本 束 认 本 束 四 可 训 闻 水 可 本 本 


志 字 水 训 次 可 可 让 水 浆 事 训 李 4。 浆 训 本 本 京 栗 六 本 事 束 妾 下 人 他 部 


SN MON TUES WED THUR FRI 


1 2 3 4 
名 了 8 1l8 11 
3 14 1I5 lo 17 18 
20 21 22 2 24 2 
27 28 23 3 3 


A 所 ww 后 加 
刍 四 自 昌 和 和 


例 6 .小 小 图 书馆 。 
下 面 是 一 个 把 图 书 进行 分 类 检索 的 程序 : 
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REN C06306.C 
READ KK 
DIM AS(K,3) 
FOR 1j=1 TOK 
FOR Jl TO 3 
READ AS$(1,J) 
NEXT Ji 
HGR2 
PRINT TAB(12); "小 小 图 书馆 
PRINT TAB(8) 


PRINT TAB(8) 1, 参考 书 ” ;TAB(20) 


SAT 
5 
12 
19 
26 


2. 科 技 " 


PRINT TAB(8); 3. 小 说 ";TAB(20); 4. 外 语 ” 


PRINT TAB(8); “5. 列 总 目录 ” 


1NPUT ]NPUT "“ 送 入 选择 号 码 ;…; 


上 


100 IF NCL AND N>5 THNEN 26 
110 0N N 00T0 160,170,180,190,208 

420 1NPUT“ 冻 还 有 要 选择 的 项 吗 ?(Y/N) ;YN5S 
136 IF YNS$="Y” THEN 20 

140 HGR2 

150 PRINT TAB(14); "再 见 久 :END 

160 XS 参考 书 ": 00T0 209 

176 X$= "科技 ": 00T0 260 

186 XS= 小说": 60T0 2606 

196 XS= “外语 ” 

266 1NPUT“ 要 打印 蚂 ?(Y/N) ”12ZS 

210 IF 23》 Y” THEN 240 

226 1NPUT "用 几 号 汉字 ?9" 记 L 

2368 POKE 1659,L 

240 PRINT TAB(12); "目录 " 

250.RRINTR 2 
260 PRINT“:;: 编 号; 书 省 :类 别 ， 
270 1=0 

286 FOR 1=1 TOK 

300 ]F N=5 THEN 320 

310 IF AS(1， ,3)《2XS THEN 350 


320 PRINT ”~----- 1 一 ~ 一 ~ 一 ~ 一 -一 = 1 一 ~-~~~ 1 

330 PRINT … AS 1) TAB(7) 1 .TAB(B) AS(1， 2) 
TAB(23) 3 = ,3); TAB(31) 3， 

3409 时 =H+ 1 

350 NEXT 二 

68 PRINT ”----~- ,一 ~- 一 -一 ~-~ ~ 一 -~ 一 -~ 


378 PRINT TAB(6);" 总 数 : 
386 00T0 128 
399 DATA 16 
496 DATA 1, 数 学 总 复习 ,参考 书 ,2, 新 招 念 英语 ,外 语 
3, 红 楼 梦 ,小 说 ,4, 美 国 现代 口语 ,外 语 
5, 三 国 演义 ,小 说 ,6 十 万 个 为 什么 ,科技 
418 DATA 7, 中 学 物理 ,参考 书 ,8, 红 岩 , 小 说 
?3,BAS1C 程 序 设计 ,科技 ,10, 谈 谈 作文 ,参考 书 
428 END 


程序 中 390 行 DATA 语 名 登记 的 是 图 书 总 数 ，400 行 以 后 


的 DATA 语 名 登记 的 是 每 本 书 的 编号 、 书 名 和 类 别 .10 一 18 
行 建立 目录 单 AS$(K,3)，20 一 80 行 显示 “小 小 图 书馆 ” 菜 
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单 ，90~150 是 对 点 菜 的 处 理 ，150~ 190 是 根据 菜单 设置 检 
索 分 类 关键 字 ，200~ 230 是 显示 或 打印 处 理 ，240 一 260 是 打 
各 或 显示 目录 表 头 ，270 一 370 是 根据 所 点 菜单 项 目 进 行 图 书 
分 类 和 统计 数量 ， 汞 且 以 表格 形式 输出 和 打印 该 类 图 书 总 
数 。〈 程 序 中 的 表格 线 采 用 区 位 码 输入 方式 ) 

每 次 显示 菜单 时 ， 你 痢 可 以 任 选 一 项 ， 为 了 说 明 问 题 ， 
下 面 给 出 依次 选择 各 项 的 执行 过 程 和 结果 : 


1RUN 
小 小 加 书馆 


用 几 号 汉字 ?2 


一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 m 汪 赤 一 一 一 一 一 一 一 亚 一 
邮 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 


总 数 :3 
你 还 有 要 选择 的 项 吗 ? (YN)Y 
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小 小 图 书馆 
1, 参 考 书 2. 科 技 
3., 小 说 4. 外 语 
5. 列 总 目录 
送 入 选择 号 码 :2 
要 打印 则 9? (YN)Y 
用 几 号 汉字 ?2 


一 一 mm 一 一 一 一 mm 一 一 一 一 mm 一 一 一 一 司 一 


6 ， 十 万 个 为 什么 ， 科技 ， 


9 :BASIC 程序 变 许 ， 笠 撤  : 


一 一 一 一 一 -- 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 吓 咖 omaeo 


总 数 :2 
你 还 有 要 选择 的 项 吗 ? (Y/N)Y 
小 小 图 书馆 


5. 列 总 目录 


送 入 选择 号 码 ;3 
要 打印 吗 ? (Y/N)Y 
用 几 号 汉字 ?2 
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一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 - 


3 : 红 避 梦 小 说 
5 ,; 三国 演义 小 说 
8 ; 红 岩 小 说 


总 数 : 
你 还 有 要 选择 的 项 吗 ? (YN)Y 


小 小 加 书馆 

1. 参 考 书 2. 科 技 

3,. 小 说 4. 外 

5. 列 总 目录 
送 入 选择 号 码 :4 
要 打印 玛 ? (Y/ANY 
用 几 号 汉字 ?2 

目录 
: 编号 ， 书 名 ,类 别 
站 新 神 念 英语 外 语 
4 ， 美 国 现代 口语 : 外语 


总 数 :2 
你 还 有 机 选择 的 项 吗 ? (YN)Y 


小 小 图 书馆 


3. 小 说 
5. 列 总 目录 
送 入 选择 号 开 :5 
要 打印 同 ? (Y/ZN)Y 
困 几 号 汉字 ?2 
目录 
纪 号 书 罕 别 ， 


3 ;红楼 梦 小 说  : 
4 人 美国 现代 口语 ; 外 语 
1 5 1; 三 国 演义 ;小 说 
1 6 1 十 万 个 为 什么 ;科技 
1 7 1 中 学 物理 ;参考 书 
和 8 省 
1 9 ， BASIC 程序 设计 : 科技 
IE 
0 
你 还 有 要 选择 的 项 吗 ? (YNON 

再 见 ! 
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第 四 节 自 定 义 函 数 


我 们 在 第 一 章 的 第 四 节 曾 经 介绍 过 由 BASIC 解 释 程序 
提供 的 内 部 函数 ， 这 些 函 数 实际 上 是 一 些 供 你 调用 的 程序 模 
块 ， 这 种 方法 体现 了 程序 模块 化 设计 的 达 点 。BASIC 人 允许 把 
程序 中 反复 出 现 的 计算 式 ， 自 己 定义 成 遍 数 ， 然 后 象 使 用 内 
部 函数 那样 进行 调用 。 这 也 是 一 种 程序 模块 化 的 设计 思想 。 

一 、 什 么 是 自 定义 函数 

我 们 首先 看 一 个 例子 : 

当 a=3.87，b=0.021，c=5.6，d=9 时 计算 下 列 式 子 


的 值 : 
2 


_ 1 -a 1 一 ,b 1 -cc 
7 一 T+arai 人 IT+Dr55 (二 村) ] 
1-d 3 
主 ) 
如 果 我 们 用 一 个 赋值 语句 进行 计算 ， 这 个 计算 式 写 出 来 
将 特别 长 ， 而 且 容 易 写 错 。 观 察 一 下 这 个 算式 ， 就 会 发 现 式 
子 中 的 每 一 个 分 式 都 具有 共同 的 结构 二 二 交 ， 如 果 我 们 把 这 


人 则 当 x = a 时 可 以 计算 出 广 (ao) = 
去 志 生 ， 当 x= b 时 可 以 计算 出 /8) = 荆 志 六 ， 当 < = c 时 计算 


出 f(c) = 
以 计算 
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当 x = 6 时 则 计算 出 /Cd) = 二 于 9; 。 则 可 


二 2 


y=f(a)。 (fb)rfe(c))》 一 f23(d) 
的 值 ， 这 个 式 子 看 上 去 就 简便 多 了 。 这 里 面 的 4x) = 


工 二 就 是 由 我 们 自己 定义 的 函数 ， 用 BASIC 语 言 描述 和 


X+X 


遇 


5 REXY C06401 

16 DEF FNR(X)={1-X)/C1+X+XyX) 
20 A=3.87: B=0,6021;: 5C=5.6: D=9 
30 YI=FNH(CA) 

4@ Y2=FNH(CB)+FNN(CC)sFNH(CC) 

50  Y3=FNH(D)sFNICD)#FNH(D) 

66 Y=Y1+Y2-Y3 

70 PRINT Y 

806 .END 


]RUN 
~.140042598 


程序 中 的 10 行 就 是 一 个 自 定 义 函 数 语句 ，DEF 是 自 定 义 
人 负数 保留 字 ， 我 们 用 它 定 义 了 函数 FNH(x)， 并 且 在 程序 中 
的 30 行 、40 行 和 50 行 中 多 次 调用 。 

1。 自 定义 函数 语句 的 格式 

自己 定义 函数 ， 必 须 通 过 自 定 义 国 数 语 句 来 定义 ， 其 诱 : 
名 格式 是 : 

行 号 DEF FN 名 字 〈 实 型 变量 名 ) = 算术 表达 式 
其 中 ， 

名 字 : 构成 规则 同 变量 名 的 构成 规则 ， 它 和 FN 合 起 来 
称 为 函数 名 。 上 例 中 FNH 是 自 定 义 的 函数 名 。 自 定义 函数 
的 值 为 实 型 量 ， 所 以 苹 数 名 后 面 不 能 加 尾 符 〈 如 % 或 $) 

括号 中 的 实 型 变量 和 名， 也 叫做 形式 参数 ， 它 是 自 定义 函 
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数 中 的 算术 表达 式 中 的 自 变量 。 
2。 自 定义 蔷 数 的 调用 
自 定 义 函 数 的 调用 和 内 部 函数 的 调用 是 一 样 的 ， 只 要 把 

贡 数 名 写 在 相应 的 表达 式 中 ， 并 用 实在 参数 取代 自 定义 函数 

的 形式 参数 。 上 述 例子 中 的 A、B、C 、D 就 是 实在 参数 。 
实在 参数 可 以 是 数值 型 常量 、 实 型 变量 、 函 数 或 算术 表 

达 式 。 
例如 ， 我 们 定义 了 一 个 国 数 FNAX (EX) 

则 下 列 调用 都 是 正确 的 。 
FNAX(3.5)，FNAX(K)，FNAX(SQR(A) ); 
FNAX(3.5A+2B+C ) 

3。 关于 自 定义 函数 的 几 点 说 明 
1) 使 用 自 定义 函数 ， 必 须 先 使 用 自 定 义 函 数 语句 定 

义 ， 然 后 才能 调用 。 

《2 ) 调用 自 定 义 函 数 时 ， 实 在 参数 中 的 变量 要 事先 被 
赋值 。 

(3) 一 段 程序 中 ， 可 以 有 多 个 自 定义 函数 ， 它 们 可 以 
相互 髓 套 ， 而 且 可 以 自己 调用 自己 《叫做 递归 调用 ) 

例如 ， 我 们 要 计算 下 式 的 值 : 

2 于 2 二 

3y =T5vAX 人 +1) 5 
可 以 这 样 定义 函数 : 

10 LET PRNYI(CX) =X 兴 X+1 

20 LEF FNY2(X) =SQRCENYICX)) 
在 这 ， 国 数 RFNY2(X) 是 由 ENY1(CX) 定 义 的 。 其 程序 如 下 : 
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又 比如 ， 要 计算 


入 加 入 名 总 三 


)RUN ?3.2 
3.2 


REH C86402 
DEF FNY1(CX)=XeX41 
DEF FNY2(X)=SQRCFNY1(X)) 


INPUT A 
YaLOG(FNY2(A))41VFNY2(A)+ASFNYLI(A) 


FRINT A,Y 
END 


37.4769144 


= +A/ 1 +A/ 1 +v 工 去 和 X=10.5 


我 们 可 以 看 出 它 是 一 个 嵌 套 函数 ， 而 且 是 递归 调用 的 。 


其 程序 如 下 : 


-~、RENH C286463 


DEF FNYI(CX)=SQRCI+X) 

INPUT A 
Y=FNYICFNYI(FNY1I(FNY1(X)))) 
PRINT A,Y 

END 


1.59865318 


这 是 不 难 理解 的 ， 第 30 句 首先 做 最 内 野 的 FNYI1(A)， 
把 计算 出 来 的 值 做 为 自 变量 的 实在 参数 ， 就 可 以 求 出 第 二 层 
的 值 ， 然 后 再 求 第 3 层 的 值 ， 最 后 再 把 第 三 层 值 做 为 实在 参 
数 ， 就 求 出 最 外 层 的 值 3 。 
(4 ) 中 华 学 习 机 BASIC 只 允许 自 定 义 函 数 有 一 个 形式 


参数 。 


二 、 自 定义 


务 数 实例 


例 1 。 当 X 依 次 取 0， 0.5，,1,1。2, 2。……5 时 用 自 定义 函 数 . 


求 下 式 值 


7y= (ezz+w 1+2er+3esr  )/15。3+Ssin2X 


+ 1+2sinX+3sin2X 
分 析 这 个 函数 式 ， 我 们 会 发 现 ez< + v IT+2Zex+3ez 
和 sin2x+ wji+2sinx+3sin5X 具 有 同样 的 结构 形式 ，2z2+ 


十 23 十 322 


运行 结果 如 下 : 
S 
16 
29 
38 
49 
56 
60 


]RUN 
6 


， 所 以 我 们 把 它 定 义 成 函数 f(z)， 程 序 和 


REXM C66464 

DEF FNF(Z)=ZsZ+SQR( 1+28Z+39Z9Z)》 
FOR X=@ T0 S STEP 8.5 
Y=FNF(EXP(X))/15.34FNFISIN(CX)) 
PRINT X,Y 

NEXT X 

END 


1.22545685 
3,.73310897 
5.3606087115 
了 3 了 .5731447?7 
13.2849613 
29.8584937 
76.4624515 
282.722968 
542,179861 
1458.75364 


例 2 .用 二 分 法 求 方程 的 近似 解 ; 
求 方程 近似 解 的 方法 很 多 ， 二 分 法 是 一 种 常用 的 方法 ， 


如 果 方 程 在 区 间 


人 Xi， X2] 必 有 一 个 实 根 ， 而 且 也 只 有 > 个 


实 根 ， 就 可 以 用 二 分 法 求 出 这 个 解 〈 见 图 6-1) 
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---=--~--=-~---| 基 


图 6-1 用 二 分 法 求 方程 近似 解 


出 于 方程 在 区 间 [xi, xs?] 只 有 一 个 解 ， 所 以 f (xi 和 
f(Cx:) 蜡 号 ， 也 就 是 E(Xj)。f(x)<0。 然 后 把 区 间 [xi，， 


x2] 二 等 分 ， 求 出 中 点 X= 一 ， 然后 判 判 ECz) 和 fCxl) 


《或 是 E(K) 和 f(x:)》 的 符号 。 如 果 f(xz) 。f(GX)<0， 则 根 
在 [xi,x] 区 间 , 这 时 用 代替 x: 如 果 f(x)*f(x)>0， 则 
根 在 [xixs] 区 间 , 这 时 用 x 代 替 xi, 然后 再 把 根 所 在 的 区 间 
二 等 分 ， 重 复 上 述 过 程 。 这 样 一 次 次 二 等 分 根 所 在 的 区 间 ， 
则 根 所 在 区 间 越 来 越 小 。 当 区 间 两 端点 X1 和 xX2 的 差 的 绝对 
值 小 于 所 要 求 的 精确 度 s 时 ， 这 一 区 间 的 任 一 端点 就 可 以 作 
为 方程 的 近似 解 。 
二 分 法 求 方程 近似 解 的 程序 流程 图 见 图 6-2。 
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等 分 ， 每 个 区 间 宽度 也 = 一 二 和 ， 每 个 区 间 的 横 坐 标 分 别 为 


取 
3， Xl=a+ 了 ， X:=a+2H， "weXn=atnHb。 每 两 个 相 邻 
分 点 的 函数 值 可 以 看 作 小 梯形 的 上 下 底 ， 区 间 宽 度 吾 作 为 小 
梯形 的 高 。 则 每 个 小 梯形 的 面积 为 〈f(xs-i) +fCXs))》 。 


| 
配 ，n 个 小 梯形 面积 之 和 就 可 以 还 似 地 看 作 数 ECx) 在 a，b 


区 间 的 积分 。 可 以 想象 得 出 ，n 的 值 越 大 ， 则 误差 就 越 小 。 
由 上 述 讨 论 可 以 得 出 : 


b 瑟 妃 陷 
小 /xz)qx = 了 (7o+31) 十 可 (1 二 ya) + 本 (+3s) 
万 
0 
《yo 2y1 十 2ya++2yn-i+2yn 一 ya) 


《3y。 一 yn)+2(yi+yz+ysteeeeee+yn) 


= 再 。 [(yo 一 yn)]/2+(yi+ya+ysteoweyn) 
外 此 可 以 画 出 程序 流程 图 ( 见 图 6-4) 。 


现在 用 梯形 法 求 | -2 < dx。 其 程序 如 下 ， 


北 


5 REN C66406 

10 INPUT A,B,N 

26 DEF FNF(X)=SIN(X)?VX 

38 H=(B-A)/VN 

4@6 IF A=9 THEN Y=(1-FNF(B))/2: 60T0 66 
59 YY=(FNF(A)-FNF(B))/2 

68 FOR K=1 TON . 
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7 了 8 Xe=A+KSH 

86 Y=Y+FNF(CX) 

986 NEXT X 

168 S=YsH 

116 PRINT “< ”3 有 AS 
126 PRINT “S=”;S 
136 END 


由 于 程序 中 要 多 次 计算 
SIN(CxX)/X 的 值 ， 所 以 用 自 定 
义 函 数 把 它 定 义 成 FNE(CX) = 
SIN(CX)/X。 当 在 端点 a 时 ,X 取 
0 时 我 们 取 函 数值 为 1 〈 因 为 当 


SI11NX 


X->0 时 ， 区 


的 极限 等 于 


17 。 

送 入 这 个 程序 ， 划 送 入 端 
点 值 A 和 B 及 区 间 等 分 数 N，N 
取 值 越 大 ， 其 误差 越 小 。 


]RUN 

36,1,10 

A=6 B=6 N=f 
S=.945832072 


]RUN 

325,1.28 

A=@ B=1 Ca=28 
S=,946020326 


”8 ;83 ”. 人 = 外 


HE ba 72 


IY=(f (a)+f (b) ) /2 
FORK=1 TON 


图 6-4 用 梯形 法 求 积分 
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TON 

30.1,59 1 
An=B Bs1 N=56 
S=。946873031 


JRUN 

328,1,106 

Az@ B=l N=1cb 
S=.94688656 


习题 六 
1。 假 设 已 经 把 数值 分 配给 以 下 变量 。 
Af 2 X(1)|57 
Al|l 3 X(C2) 
志 需 国 x(3 ) 
Cl 4 X(4) 
D+5 X(5) 
X(6) 
写 出 以 下 下 标 变 量 的 数值 : 
(1)X3)=_ (2)X6)=_ 
(38) X(AlL) = (4 和 ) X(c) = 
《5 ) X(A+By) = (6) X(AK#AlL-2) = 


(7)XI0-AxC)=_ 
(8) XCXCA+C)-Al) = 
(9)X(CXC)-XA))xC-xB)) = 
2。 下 列 程序 打印 什么 结果 并 运行 程序 核对 。 
(1) 10 DIM C(30) (2) 10 DIM X(3)，Y(3) 
20 FOR I=10 TO 30 20 FOR K=1TO3 
30 LET C(I) =I 30 及 EAD X(K),Y( 民 ) 
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40 PRINT .C(2)， ”40 NEXT 下 


50 NEXT 1 50 FOR R=1TO3 

60 END 60 PRINT YCR)5X(R) 
70 NEXT R 
80 DATA 1,2,3,4,5。6 
90 END 


3。 编 写 一 程序 ， 顺 序 填 人 DATA 语 名 中 的 一 组 数据 放 
一 数组 中 , 然后 将 数组 中 的 各 元 素 移 到 后 一 个 元 素 的 位 置 ,而 
最 后 一 个 元 素 移 到 第 一 个 元 素 的 位 置 ， 并 打印 出 后 一 数组 。 

4.。 用 INPUT 语句 输入 一 个 位 数 不 小 于 2 的 正 整 数 N， 
编程 打印 出 这 个 数 以 及 将 它 倒 排 后 的 数 。〔〈 上 比如 12345 和 543 
21) 

5。 将 下 面 左边 数据 依 行列 次 序 读 入 一 个 二 维 数 组 
中 ， 再 按照 右边 两 种 形式 打印 出 来 : 


47695 58324 59674 
74218 91042 81247 
62403 62403 30426 
91042 74218 24019 
58324 47695 42385 


6。 用 中 文 BASIC 编 写 “ 通 讯 录 ”， 首 先 显 示 菜 单 : 


通讯 录 
1 …… 显 示 通 讯 录 
2 …… 查 通讯 处 
3 。。。。 打印 通讯 录 


要 求 用 DATA 语 句 只 少 提供 5 个 人 的 通讯 处 和 电话 号 码 ， 使 
用 二 维 数组 存放 信息 ， 当 从 健 盘 输入 1 时 ， 在 屏幕 上 能 看 到 
16 


通讯 录 上 的 全 部 内 容 ， 当 从 键盘 输入 2 时， 屏幕 要 显示 提 
示 : “请 输入 姓名 : ”输入 姓名 后 ， 屏 幕 上 就 会 显示 出 此 人 
的 通讯 处 和 电话 号 码 ， 当 从 键盘 输入 3 时， 以 表格 形式 打印 
出 通讯 录 全 部 内 容 。 

7。 根 据 你 班 最 近 一 次 测验 成 绩 ， 设 计 出 一 个 能 按 成 绩 
从 高 分 到 低 分 进行 排序 ， 并 且 能 求 出 全 班 平均 成 绩 的 程序 。 

8。 从 键盘 输入 N 个 自然 数 〈《n 宇 2) ， 求 它们 的 最 小 公 
倍数 。 

9。 开 依次 取 0.1，0.2，0.3，…"， 1。 用 自 定 义 函 数 编 
程序 求 函 数 y = cos(arcsinx) + sin(arccosx) 的 值 。 

10。 如 图 ， 求 抛物 线 y = :与 X= y? 所 围 成 的 封闭 图 形 面 
积 。 
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第 七 童子 程序 设计 


我 们 已 讲 过 ， 现 代 程序 设计 方法 是 模块 化 结构 程序 设 
计 。BASIC 语 言 中 的 子 程序 设计 具体 体现 了 这 一 设计 思想 。 


第 一 


数 ， 


1 
28 
2 
48 
58 
68 
78 
86 
535 


节 ”什么 是 子 程序 
让 我 们 首先 运用 前 面 学 的 知识 编写 一 个 程序 来 计算 组 合 


REMY C83161-1 
ENPUT N,K 
Pl=1 


FOR L=N TO 2 STEP -1 


P1=pist 
NEXT 
P2=f! 


FOR [=gK TO 2 STEP -! 


P2=P241 
NEXT ! 


166 P3=1 
1t@ FOR 4=N-K TO 2 STEP -1! 
126 P3=P3s1 
438 NEXT 1 
148 C=p1/(P2sp3) 


156 PRINT “CC 3N3 


168 END 


JRUN 
35,2 


C(5,2)=19 


) ;Ki )=”;C 
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”程序 中 的 30 行 到 60 行 ，70 行 到 100 行 ，110 行 到 140 行 是 
三 段 功能 类 似 的 程序 ， 在 程序 中 反复 写 这 些 功能 类 似 的 程序 
段 即 麻烦 、 又 容易 产生 错误 。 如 果 能 把 它 单独 写成 一 个 公用 
的 程序 段 、 分 三 次 调用 它 ， 那 么 程序 会 简化 清晰 许多 。 


SS REN C867161-2 
.18 1NPUT RNK 

28  Tz=N 

9 .00SU8 208 

49 Pi=p 

56 - Tz=K 

68 6060588206 

76  P2=P 

88  T=N-K 

36 60SU8 206 

119 pP3=P 

26 C=p1/(P2ep3) 

138 PRINT “CN Ki)=C 
146 END 

208 pz=1i 

216 FOR 1=T T0 2 STEP -1 
229 Pb=psi 

236 NEXT 上 

248 RETURN 


JRUN 
25,2 
C(5,2)<16 
200 行 到 240 行 就 是 一 段 公 用 程序 ，40 行 、70 行 和 100 行 
三 次 调用 它 。 我 们 把 这 段 公用 程序 叫做 子 程序 。 子 程序 以 外 
的 称 为 主 程序 。 
我 们 可 以 想象 得 出 ， 如 果子 程序 很 长 ， 而 且 调 用 很 频 
簿 ， 那 么 这 种 甩 子 程序 结构 写 的 程序 将 比 不 用 子 程序 要 简化 
清晰 得 多 。 而 且 我 们 还 可 以 把 一 个 全 常用 的 子 程序 存在 磁盘 
上 ， 建 立 一 个 子 程序 库 ， 以 后 什么 时 候 使 用 就 什么 时 候 调 人 
存 财 器 中 ， 不 必 重 新 编写 。 这 将 省 去 很 多 繁琐 劳动 。 
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第 二 节 ”转子 语句 和 返回 语句 


主 程序 和 子 程序 是 通过 转子 语句 和 返回 语句 连 成 一 个 整 
体 的 。 

一 、 语 句 格式 

转子 语句 要 写 在 守 钢 用 子 程序 的 程序 行 上 ， 其 格式 如 
下 : 

行 号 GOSUB 

其 中 : 
N 是 被 调用 子 程序 的 第 一 行 行 号 。 

子 程序 返回 语句 必 须 是 子 程序 逻辑 上 的 最 后 一 个 语 
句 。 
其 格式 如 下 : 

行 号 RETURN 

二 、 子 程序 的 调用 过 程 

带 有 子 程序 的 程序 是 这 样 执行 的 。 

首先 从 主 程序 的 第 一 行 开 始 执行 ， 当 执行 到 GOSUB 语 
名 时 ， 就 把 GOSUB 和 铬 名 的 后 续 语 句 所 在 的 地 址 及 其 它 有 关 
信息 压 进 栈 里 〈 栈 大 用 于 存放 数据 的 一 片 内 存单 元 ， 它 的 特 
点 是 只 能 从 叫做 栈 顶 的 一 端 存放 数据 ， 所 以 先 压 入 的 数据 只 
能 后 取 ， 后 压 进 的 数据 才能 先 取 ， 就 象 一 释 矶 子 ， 只 能 从 项 
上 一 个 一 个 取出 来 ) 。 然 后 根据 GOSUB 语 名 后 面 的 行 号 ， 
找到 子 程序 的 入 口 并 且 转 去 执行 子 程序 。 

进入 子 程序 后 ， 从 子 程序 的 第 一 行 开 始 执行 ， 当 执行 到 
RETURN 语 名 时， 就 把 保存 在 栈 里 的 信息 〈GOSUB 后 斌 
语句 所 在 地 址 及 其 它 有 关 信 息 》 强 出 来 , 从 而 返回 利 GOSUB 
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的 后 续 语句 。 
上 节 给 出 的 求 组 合 数 的 程序 中 ， 主 程序 三 次 调用 子 程 
序 ， 其 调用 过 程 如 图 6-1 所 示 。 
主 程序 子 程序 


200 


图 6-1 调用 子 程序 示 痊 图 


三 、 子 程序 的 钨 讲 

不 但 主 程序 可 以 调用 子 程序 ， 子 程 也 可 以 调用 其 他 子 程 
序 ， 它 们 可 以 一 层 套 一 肢 ， 这 就 叫做 子 程序 的 嵌 套 。 

中 华 学 习 机 BASIC 的 子 程序 嵌 套 最 多 可 达 25 层 。 

子 程序 亩 用 其 它 子 程序 和 主 程序 调用 子 程序 所 使 用 的 语 
可 及 执行 过 程 是 一 祥 的 。 赂 套子 程序 及 其 调用 过 程 和 栈 变 化 
如 图 6-2 所 示 。 

首先 从 行 号 10 开 始 执行 主 程序 , 执行 到 30 行 遇 到 GOSUB 
语句 ， 就 把 40 行 的 地 址 压 进 栈 里 ， 转 去 执行 200 行 为 首 的 子 
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生 程 序 . 子 程序 T 子 程序 开 


1n 


3 中 GOSUB 200@D 
200 300 
40 帮 
、 220 
S 
1 
SS "jeosue 300 2 ) 
。 A 
8 人 GOSUB | 相 / 


入 
\ 、300 入 “\\ / 

90 、\、 K 二 
SC N\ 了 


ETURNv”  、、RETURN 
“ 轧 


2 这 
”~ 一 一 一 一 -一 ” 


40 


"加 “图 , | 


图 6-2 伐 套 子 程序 的 调用 过 程 和 栈 变 化 @ 一 四 


程序 [1， 当 执行 到 220 行 遇 到 GOSUB 时 又 把 230 行 的 地 址 压 大 
栈 (40 行 的 地 址 在 栈 底 ，230 行 地 址 在 它 上 面 ) ， 并 开始 热 
行 300 行 为 首 的 子 程序 开 ， 一 直 执行 到 360 行 的 RETURN 。 

执行 RETURN 语 名 ， 就 把 栈 顶 内 容 《230 行 的 地 址 ) 弹出 
来 ， 从 而 返回 到 子 程序 工 的 230 行 ， 当 执行 到 270 行 时 ， 又 亲 
到 RETURN 语 句 ， 则 再 次 弹出 栈 里 的 内 容 〈40 行 的 地 址 ) ， 
从 而 返回 到 主 程序 的 40 行 ， 一 直 往 下 执行 到 80 行 ， 按 上述 过 
程 ， 调 用 300 行 为 首 的 子 程序 下 ， 执 行 完 子 程序 开 返 回 主 程 
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序 ， 继 续 执行 到 程序 结束 。 

这 称 程序 中 主 程序 调用 子 程序 I ， 子 程序 工 又 调用 子 程 
序 贡 ， 这 就 是 子 程序 代 套 。 而 主 程 在 80 行 直接 调用 主 程 序 I 
后 又 返回 主 程序 ， 就 没有 形成 颈 套 。 

四 、 关 于 使 用 子 程序 的 几 点 说 明 

1。 必 须 通过 转子 语句 进入 子 程序 ， 不 能 由 转向 语 名 或 
其 它 语句 进入 子 程序 。 必 须 由 返回 语 名 RETURN 退出 子 程 ， 
不 能 由 转 问 语句 或 其 它 语句 退出 子 程序 。 这 是 因为 只 有 经 过 
GOSUB 语 句 ， 才 能 把 返回 地 址 推 人 栈 ， 遇 到 有 RETURN 语 
句 才 知 道 返回 到 什么 地 方 ， 只 有 经 过 RETURN 语 句 ,， 才 把 
保存 在 栈 中 的 返回 地 址 弹出 ， 否 则 它 将 留 在 栈 里 被 其 它 RE 
TURN 语 句 利 用 ， 那 就 乱 套 了 。 

2。 调 用 子 程序 前 ， 要 对 子 程序 的 若干 变量 赋值 ， 使 子 
程序 正常 运行 ， 在 转 回 主 程序 后 ， 要 把 子 程序 计算 的 结果 保 
存 下 来 。 在 前 面 的 程序 中 30 行 ，60 行 ，90 行 就 是 在 调用 子 程 
序 前 给 予 程序 中 的 变量 全 赋值 ， 而 50 行 ，80 行 ,110 行 是 保留 
每 次 调用 子 程序 时 计算 的 结果 。 

3.。 子 程 序 之 间 可 以 嵌 套 ， 但 是 不 要 递归 调用 ， 也 就 是 
说 ， 任 何 一 个 子 程序 都 不 要 自己 调用 自己 ， 即 不 要 直接 调用 
自己 ， 也 不 要 间接 调用 自己 ， 因 为 使 用 递归 调用 ， 很 容易 使 
侈 套 深度 越界 面 发 生 错误 。 

4。RETURN 语 句 是 子 程序 逻辑 上 的 最 后 一 个 语 言 ， 
也 就 是 说 ， 它 是 子 程序 的 出 口语 句 。 如 果 一 个 子 程序 有 多 个 
出 口 ， 那 么 就 可 以 有 多 个 RETURN 语 句 。 不 然 一 个 子 穆 序 
有 几 个 RETURN 语 句 ， 每 调用 一 次 子 程序 ， 只 以 其 中 一 个 
RETURN 语 名 出口 。 例 如 : 
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5 REN C67201 

1@ 1NPUT “X= ”3 

28 003U8 160 

38 PRINT “X= 3X，Y= ?YY 

486 END 

168 IF X=@ THEN Y=X: RETURN 
LiG Y=EVX 

128 RETURN 


X=9 Y=0 

这 个 子 程序 就 有 两 个 RETURN 语 句 ， 但 调用 一 次 子 程 
阁 只 通过 其 中 一 个 返回 。 

5。 循 环 语句 的 语句 体内 可 以 调用 子 种 序 ， 子 程序 中 
也 可 以 使 用 循环 语句 ， 但 是 两 者 不 能 交叉 。 也 就 是 循环 语 
币 中 从 入 日语 名 FOR 语句 出 口语 句 NEXT 必须 同 在 一 个 
程序 段 中 , 不 能 分 别 出 现 在 两 个 或 两 个 以 上 程序 段 
中 。 


第 三 节 “ 子 程序 设计 


程序 中 要 反复 使 用 程序 段 和 一 些 常用 的 算法 ， 都 可 以 写 
成 子 程序 ， 供 其 他 程序 调用 。 这 就 要 求 子 程序 设计 要 通用 性 
强 ， 不 能 通用 的 语句 不 要 放 在 子 程序 中 。 

使 用 子 程序 设计 程序 ， 要 很 好 地 体现 出 程序 的 模块 化 结 
构 ， 这 样 设计 的 程序 ， 往 往 主 程序 很 短 ， 子 程序 却 很 长 。 主 
程序 中 主要 只 是 输入 数据 ， 赋 与 某 些 初 什 ， 及 结果 的 输出 。 
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而 有 关 的 运算 和 数据 的 处 理 都 放 在 子 程 皮 中 。 为 了 说 明 问 
题 ， En 


序 ， 用 数组 A 存 放 各 项 系数 : 


了 三 aoX" 十 3IX" 1 十 82X 2 十 se 十 8 _2X2 二 an_IXT+an 


程序 如 下 : 


260 Y=A(0) 

216 FOR 1=1 TO N 
228 Y=YX+A(T)》 
239 NEXT 了 

249 RETURN 


我 们 要 求 X= 6 时 ，y= 6xs-- 4xs+2xX-5 的 值 可 写 出 下 


面 的 主 程序 各 调用 它 


5 -RENC67301-1i 

16 INPUT X 

20 READ N 

38 DIK ACN) 

40 FOR 1<6 TO N 

586 READ A(1) 

60 NEXT | 

76，00SU8 208 

号 PRINT “X= ”2X， Ya ”TY 
DATA 5,6,0,-4,9,.2,-5 

lo END 


我 们 要 求 X 从 1 到 10 步 长 为 0.5 时 国 数 
y=0。.5X9+0。7Xe 一 3.8Xx5+2。5 
在 各 点 的 函数 值 ， 就 可 以 用 下 面 主 程序 调用 它 : 


5 RENH C67301-2 
10 READ N 

26 DIi ACN) 

30 FOR 1=0 TO N 
49 READ AI》 


586 NEXT ! 

6 FOR X=1 T0 5 STEP 6.5 

78 00SUB 268 

86 PRINT “X= ”Xi Y= "1Y 

98 NEXT X 

106 DATA 9,0.5,0,6,0.7,-3,8,9,6,9,6,2.5 
110 END 


如 果 把 自 定义 函数 中 最 后 一 个 例子 ， 求 | -so dx 的 
程序 中 求 积分 的 那 部 分 改写 成 子 程序 : 


206 H=(B-A)VN 

216 Y=(YA-YB)/2 

228 FOR K=1 TO0 N-1 

238 X=A+KSHH 

248 Y=Y+FNF(X) 

258 NEXT 8K 

268 S=Y#iH 

278 PRINT “A=” AI” “98=" 8 ” “2 S=”";S 
286 RETURN 


求 | -2 dx 可 以 用 下 面 主 程序 调用 它 。 


5  QqENH (97392 

16 INPUT A,8,N 

26 DEF FNF(X)=SIN(CX)VX 

36 IF A=@ THEN YA=1: 00TQ 58 
4@8 YA=FNFCA》 

56 YYB=FNF(B) 

ee 060SUB 268 

76 ZND 


I7 主 


要 求 | 7 sinxdx 可 以 用 下 面 主 程序 调用 它 。 
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RENY C67362-1 

TINPUT A,B,N 

DEF FNF(X)=SIN(X) 
YA=FNF(A) : YB=FNF(3》 
060SUB 200 

END 


208 H=(8B-A)VN 

216 Ye=(YA-YB//)7/2 

226 FOR K=1 TO RN 

236 X=A+Ks8 

248@ Y=Y+FNF(X) 

258 NEXT K 

266 S=Y4H 

278 PRINT “A= ”和 AI” “入 B- 2 8” ““S= 
286 RETURN 


要 求 | ,xs+ 2x2+1， 则 可 以 用 下 面 主 程序 调用 它 。 


BEN C67302-2 

INPUT A,B,N 

DER FNF(X)=XsXsX+23XsX+1 
YA=FNF(A) : YB=FNF(8) 
603SUB 206 

END 

H=(B-A)VN 

Y=(YA-YB)72 

FOR K=1 TO R 

X=A+ 交 人 于 

Y=Y+FNF(X) 

NEXT K 

S=YsH 

PRINT “A=” 5 AI” "2"B=";B3” “;S=” 7S 
RETURN 


可 见 子 程序 使 用 起 来 很 方便 ， 避 免 了 许多 重复 性 的 编 
程 ， 象 上 面 那样 子 程序 是 一 些 常用 算法 。 我 们 可 以 把 常用 的 
一 些 算法 编 成 子 程序 存 入 盘 中 ， 每 次 只 要 调 出 这 个 子 程 
序 ， 另 外 写 一 个 主 程序 给 出 原始 数据 ， 通 过 GOSUB 语句 调 
用 子 程 序 就 行 了 。 因 此 ， 可 以 在 磁盘 建 一 个 子 程序 库 ， 以 后 
用 到 这 些 计算 过 程 ， 就 不 必 再 重新 编写 程序 了 。 子 程序 存盘 
的 方法 是 ， 先 把 主 程序 用 DEL 命令 删 去 ， 再 给 予 程序 一 个 文 
件 名 ， 用 SAVE 命 令 存 入 盘 中 。 

下 次 要 使 用 库 中 的 那个 子 程序 ， 只 要 使 用 LOAD 命 令 把 
子 程序 装 入 内 存 ， 再 写 一 段 主 程序 调用 它 就 行 了 。 

再 给 出 几 个 子 程序 调用 的 例子 

例 1 。 求 多 边 形 〈 见 图 6-3) 的 面积 ， 
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任何 一 个 多 边 形 的 面 程 都 可 以 看 做 是 车 二 个 三 角形 的 面 
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积 和 ， 只 要 知道 各 个 三 角形 的 边 长 ， 就 可 以 求 出 三 角形 的 
面积 。 
车 三 角形 三 边 为 a，b，c， 三 角形 的 面积 公式 : 
S=w LI-a)(L-D)(CI-c) 其 中 1= (at+ 
b+c) /2 


5 REK C67303 

196 A=3.6: 8=3.8: C=5.8 
26 0603UB 288 

39 A=5.8: 8=5.1: C=5.2 
46 060SUB 206 

58 A=4.5: 8=1.9: C=5.2 
06 00SUB 208 

76 A=3.5: B=2.7: C=5。.1 
86 0605S0UB 208 

098 PRINT “S=”;S 

198 END 

268 L=(A+B+C)7/2 

216 S1=SQR(LS(L-A) 中 (L-B)(L-C))》 
226 S=S+S1 

238 RETURN 


]RUN 
S=20.8779525 


例 2 。 有 一 张 5 个 学 生 6 科 成 绩 登 记 表 ， 要 求 计 算出 每 
个 人 的 平均 成 绩 ， 并 根据 如 下 标准 给 出 适当 评 语 ，90 一 100 
分 “优秀 ”，,80~89 分 为 《良好 ”,70 一 79 分 为 《中 7”，60~ 
69 分 为 “及 格 ”，60 分 以 下 为 “不 及 格 ”。 打 印 出 学 生 的 学 
号 、 平 均 成 绩 和 评语 ; 

5 RENM C67364.C 

1@ DIM A(5S,7) 


26 FOR 1=1 T0 5 
6 FOR J=1 T0 7 


74 


49 READ A(i ,JI) 


50 NEXT J, 1 
60.FOR 1=1 T0 5 
70 S=0 


86 FOR jJ=2 T0 7 
90 S=9+A(1,J) 


100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
300 
JJ10 
20 
J30 
3406 
50 


RUN 


] 
2 
3 
4 
5 


NEXT ]J 

T=1NT(S/o10+0.5)/10 

003UB 300 

PRINT A(1,1);TAB(6);T;TAB(15) ;AS 
NEXT 1 

DATA 1,85,90,93,93,81,68 

DATA 2,96,92,98,96,993,95 

DATA 3,78,80,64,82,78,70 

DATA 4,58,60,52,62,54,57 

DATA 5,70,72,56,66,50,61 

END 

IF T>=9?99 THEN AS$= "优秀 ": RETURN 
IF T>=36 THEN AS=" 良 好 ": RETURN 
JF T>=70 THEN AS= “中 ": RETURN 
JF T>=60 THEN AS= “及 档 ": RETURN 
hS = 不 及 格 * 

RETURN 


在 这 个 程序 中 ， 把 给 定 每 个 人 的 评语 用 了 一 个 子 程序 ， 
数据 的 输入 输出 和 求 平 均 分 写 在 主 程序 中 。 

还 可 以 把 主 程序 中 的 人 数 用 N 表 示 ， 科 目 用 M 表 示 ， 而 
把 求 平均 分 也 写成 一 个 子 程序 ， 这 样 每 次 使 用 只 要 写 一 个 主 
程序 进行 数据 的 输入 和 输出 就 可 以 了 。 
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5 


80 

96 

100 
116 
120 
130 
140 
150 
200 
210 
220 
230 
240 
250 
280 
270 
280 
290 
300 
310 
320 
330 
340 
350 


REM C67305.C 

INPUT N.l 

DIM A(N,H) 

FOR 1=L TON 

FOR J=1 TO 

READ A(1,J) 

NEXT J,1 

G0SU8 290 

DATA 5,85,88,92,80,79,80 
DATA 7 了 ,96,92,98,96,99,95 
DATA 11,56,63,45,62,61,60 
DATA 12,66 62,79,68,75,59 
DATA 15,99,95,99,100,99,97 
DATA 18,77,96,65,62,70,73 
DATA 19,87,80,92,93,76,74 


END 
FOR 1=1 TO N 
S=0 
FOR J=2 TO ;1 
S=<S+A(1,J) 
NEXT J 
T=1NT(S/6x10+0.5)/10 
00SUB 306 
PRINT A(1,1)3;TAB(6)T;TAB(12) ;AS 
NEXT 1] 
RETURN 
1F T>=90 THEN AS$=" 优 秀 "; RETURN 
IF T>=80 THEN AS=" 良 好 ”: RETURN 
1F T>=70 THEN AS=“ 中 ": RETURN 
IF T>=60 THEN AS=" 及 格 ": RETURN 
AS= “不 及 档 ” 
RETURN 
8 
7 
84 良好 
96 优秀 
57.8 不 及 格 
67.2 及 和 
98.2 优秀 
72.8 中 
83.7 良好 


这 是 一 个 具有 子 程序 谍 套 结构 的 程序 。 

在 实际 的 程序 设计 中 ， 都 应 当 把 各 种 功能 分 别 写 成 子 程 
序 ， 而 在 主 程序 中 只 进行 数据 的 输 人 输出 处 理 。 这 样 可 以 使 
程序 通用 性 更 强 。 比 如 上 面 这 个 程序 ， 我 们 可 以 把 许多 人 的 
学 号 和 车 二 科 的 成 绩 登 记 在 DATA 语 句 中， 而 从 键盘 上 输 
入 人 数 (N) 和 科目 数 + 1(M), 不 必 对 子 释 序 和 主 程序 的 其 它 
语句 进行 修改 ， 就 能 正确 运行 。 上 面 程序 送 入 的 是 7 个 人 的 
学 号 和 六 门 课 的 成 绩 。 


第 四 节 ”多 向 转子 语句 
我 们 已 在 分 支 程序 中 介绍 了 开关 语句 中 的 多 向 转移 开关 


语句 ， 
ON 玫 GOTO miy mo Is 和。 Im 。 


这 节 介 绍 多 向 转子 开关 语句 : 

行 号 ON K GOSUB ml my maowemn 
其 中 ， 

玫 可 以 是 数值 常量 ， 变 量 ， 也 可 以 是 算术 表达 式 ， 其 
值 要 满足 0 二 n 委 255 


Ily ty isy。。。。 ma 是 子 程序 的 第 一 行 行 号 。 

执行 这 个 语句 ， 就 会 根据 所 得 到 的 N 的 值 转 到 第 K 个 行 
号 开始 的 子 程序 ， 执 行 完 子 程序 后 就 返 回 天 关 语 句 的 下 一 
个 语句 。 

开关 转子 语句 的 转子 过 程 和 GOSUB 的 转子 过 程 是 一 样 
的 ， 就 不 多 说 了 。 这 是 一 个 十 分 有 用 的 语句 。 

例 1 。 用 多 向 转子 语句 写 一 个 选择 菜单 。 

在 上 一 章 的 “小 小 图 书馆 ”程序 中 已 使 用 了 菜单 选择 。 
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在 那里 是 用 ON 一 GOTO 语 名 来 实现 分 支 的。 如果 每 个 被 选 
择 的 程序 比较 大 ， 我 们 可 以 把 它们 分 别 写 成 子 程序 ， 然 后 写 
一 个 用 多 向 转子 语句 实现 菜单 选择 的 程序 调用 它们 。 

例如 ， 我 们 把 上 一 章 的 “小 小 图 书馆 ”程序 改 成 起 始 地 
址 为 2000 行 的 子 程序 ， 再 写 一 个 起 始 地 址 为 1000 的 “学 习 成 
- 什 册 ”程序 ， 还 可 以 把 你 的 朋友 们 的 地 址 ， 电 话 登 记 起 来 建 
立 一 个 “通讯 录 ”， 把 “通讯 录 ” 子 程序 的 起 始 行 定 为 3000 
行 ， 还 可 以 建 一 个 “备忘录 ”的 子 程序 ， 使 它 由 4000 行 开 
始 。 这 样 ， 可 以 用 GOSUB 语 名 来 实现 菜单 选择 分 支 了 ， 程 
序 如 下 。 


5 REH C07461.C 

10 HGR2 

26 PRINT rAB(14);" 菜 单 " 

30 PRINT TAB(10)"------------------ 


40 PRINT TAB(9);"1------- 学 习 成 绩 单 " 
56 PRINT TAB(9); 2------- 小 小 图 书馆 ” 
60 PRINT TAB(9);"3------- 通讯 录 ” 
76 PRINT TAB(9); "4------- 备 密 录 ” 


86 PRINT 

96 INPUT“ 送 入 选择 号 码 :…; 

160 IF NI AND N>4 THEN 10 

116 ON N 60SUB 1000,2000,3000 ,4006 
120 INPUT“ 你 还 有 要 选择 的 项 凤 ? (Y/N)…;YNS 
130 1]F YNS="Y" THEN 10 

146 HGR2 

158 PRINT TAB(14);" 再 见 1 

166 END 

1009 HGR2 

1010 PRINT“ 请 建立 学 习 成 绩 音 " 

1020 RETURN 

2006 HCR2 

2010 PRINT“ 请 建立 小 小 图 书馆 ” 

2020 RETURN 


了 78 


3666 HGR2 
3618 PRINT“ 请 建立 通讯 录 " 
30926 RETURN 

4009 HGOR2 

4019 PRINT“ 请 建立 备忘录 " 
4020 RETURN 


]RUN 


送 入 选择 号 码 ;! 
请 建立 学 习 成 绩 单 
你 还 有 要 选择 的 项 吗 ? (YN)Y 


1----- 学 习 成 绩 音 
2----- 小 小 图 书馆 
3----- 通 讯 录 


“和 送 入 迁 摊 号 码 :2 
清 建 立 小 小 圆 书馆 
你 还 有 轨 选 择 的 项 吗 ? (YNDY 


送 入 选择 号 码 :3 
请 建立 通讯 录 
你 还 有 要 选择 的 项 吗 ? CY/N)Y 
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送 入 选择 号 玛 :4 

请 建立 备忘录 

你 还 有 要 选择 的 项 蚂 ? (Y/NJN 
再 见 ! 


程序 中 的 1000 行 ，2000 行 ，3000 行 ，4000 行 ， 是 菜单 上 


每 项 的 子 程序 的 第 一 行 行 号 ， 在 这 里 用 显示 “请 建立 x x x?” 
代替 了 相应 的 子 程序 。 


习题 七 
1。 什 么 是 子 程序 ? 主 程序 和 子 程序 之 间 通 过 什么 语句 


发 生 联 系 ? 为 什么 不 能 用 GOTO 语 句 或 条 件 转移 语句 转 入 
子 程序 或 是 从 子 程序 转 回 主 程序 ? 


2。 以 下 程序 打印 什么 结果 ? 运行 程序 验证 。 


《1)10 FOR I=1TO5 (2)10 FOR I=1TO3 


20 GOSUB 50 20 GOSUB 60 

30 NEXST I 25 S=S+ 开 

40 GOTO 70 30 NEXT II 

50 PRINT TI; 40 PRINT S 

60 RETURRN 50 END 

70 END 60 改 = 卫 %(I+1) 关 (TI+2》 
70 RETURN 


3。 求 出 三 组 1 一 100 之 间 的 随机 整数 ， 每 组 三 个 数 ， 
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用 子 程序 打印 出 这 三 组 数 ， 并 用 子 程 序 挑 出 每 组 中 最 大 的 
数 。 

4。 在 半 径 为 Ri 的 圆 形 铁 板 上 ， 打 出 6 个 半径 为 Rs 的 
况 孔 ， 用 子 程序 的 方法 编写 程序 ， 以 下 面 两 组 值 为 例 ， 分 别 
计算 剩 下 部 分 面积 的 值 。 

(1 》R=243 有 R:=3。8 

(2 ) R,=64.07 Rz=10.98《〈 单 位 ， 厘 米 ) 

5。 用 子 程 序 方 法 求 ， 


MA SinX% 汪汪 Siny 
(CT Sin(y-%Y)。Simn(y-X%) 


于 Si12 . ) 
Sin(Z-X)。Sin(S-?》 


其 中 , A=5 xx=45"” yy=60" gg=90。 


第 八 章 ”程序 的 调试 


程序 编 写 好 以 后 ， 要 通过 键盘 把 它 送 入 计算 机 ， 这 两 
次 工作 ， 都 是 由 人 通过 手工 进行 操作 的 ， 所 以 难免 会 有 各 种 
错误 。 这 就 必须 对 程序 进行 调试 ， 调 试 正确 以 后 ， 才 能 正确 
运行 。 调 试 程序 ， 实 质 上 就 是 发 现 错误 和 纠正 错误 的 过 程 。 

为 了 使 程序 便于 调试 ， 在 编程 时 要 注意 以 下 两 点 ; 

1。 使 程 序 模块 化 ， 如果 一 个 程序 比较 长， 程序 有 错 
误 (特别 是 逻辑 上 的 错误 ) 就 非常 不 易 判 断 和 查找 ， 给 调 
试 带 来 困难 。 如 果 我 们 把 一 个 长 程序 按 功能 的 不 同 ， 分 成 风 
个 相对 独立 的 模块 ， 那 么 不 论 是 编写 穆 序 ， 还 是 调试 程序 ， 
就 都 方便 多 了 。 直 于 每 个 模块 都 比较 短小 精炼 ， 阅 读 、 查 找 
错误 ， 修 改 错误 ， 甚 至 进行 删除 和 增补 都 很 方便 。 把 每 个 模 
块 分 别 调试 好 以 后 ， 再 把 若干 个 模块 组 合 起 来 稍 加 调试 ， 就 
可 以 运行 了 。 

2。 画 好 程 序 流程 图 ， 没有 流程 图 的 程序 读 起 来 比较 四 
难 ， 即 便 是 自己 亲手 编写 的 程序 ， 放 置 时 间 一 久 ， 自 己 也 会 
不 知 所 云 。 如 果 有 一 个 清晰 的 程序 流程 图 ， 那 么 阅读 和 调试 
起 来 就 会 方便 的 多 。 流 程 图 上 要 清楚 地 反映 出 一 个 程序 有 几 
个 模块 ， 以 及 每 个 模块 的 逻辑 结构 ， 标 注 清楚 各 个 变量 的 作 
用 、 分 支 和 循环 的 条 件 等 等 ， 以 便 在 调试 程序 时 对 照 检查 。 

此 外 ， 在 程序 中 加 以 适当 注释 ， 对 变量 、 转 移 和 程序 块 
的 功能 加 以 简要 说 明 ， 对 于 程序 的 调试 也 会 提供 方便 。 
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第 一 节 ， 程序 调试 的 基本 步 又 


用 BASIC 语 言 编写 的 程序 是 把 程序 输入 内 存 后 ， 通 过 
从 键盘 融入 RUN 命令 使 程序 执行 来 发 现 和 查 找 错 误 。B 
ASIC 程 序 的 调试 ， 一 般 分 两 步 进 行 。 首 先是 调试 语 疲 的 正 
确 性 ， 然 后 调试 逻辑 上 的 正确 性 。 

一 、 语 法 正确 性 调试 

当 运 行 BASIC 程 序 时 ，BASIC 解 释 程序 就 会 自 动 地 检 
查 程序 的 语法 错误 ， 如 果 发 现 程序 中 有 不 符合 BASIC 语 言 
语法 规定 的 语句， 它 就 会 把 错误 码 存放 在 内 存 的 222 单 元 ， 
然后 在 屏幕 上 显示 出 错误 类 型 以 及 错误 发 生 在 哪 一 行 。 其 错 
误 信息 编码 及 显示 错误 内 容 如 表 8-1-1 所 示 。 

当 屏 幕 上 显示 错误 时 ， 可 以 根据 指出 的 错误 所 在 行进 行 
修改 。 有 的 句法 错误 ， 并 不 给 出 错误 位 置 ， 而 是 只 显示 发 生 
了 什么 错误 ， 这 就 要 根据 给 出 的 错误 种 类 进行 分 析 判 断 到 底 
什么 地 方 发 生 了 错误 。 

有 错误 发 生 时 ， 根 据 错误 的 类 型 可 以 采用 不 同 的 方法 处 
理 ， 有 的 错误 (如 NEXT 和 FOR 不 匹配 、 行 号 未 定义 、 
RETURN 和 GOSUB 不 匹配 等 等 ) 就 要 通 过 对 程序 的 修改 
来 解决 。 但 有 些 错误 〈 如 除数 为 0 、 溢 出 、 函 数 的 自 变量 非 
法 等 等 ) 可 以 对 原来 的 程序 进行 修改 来 解决 ， 也 可 以 采用 本 
举 第 三 节 讲 的 办 法 来 处 理 。 对 于 初学 者 来 说 ， 一 般 都 是 通过 
修改 程序 来 使 程序 能 继续 运行 下 去 。 
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朗 8-1-1 
编码 错 误 显 和 示 


0| NEXT WITHOUT FOR ERROR 
16| SYNTAX ERROR. 


说 明 


NEXT 与 FOR 不 匹配 
语法 错 


22| RETURN WITHOUT GOSUB ERROR | RETURN 与 GOSUB 不 
匹 


43| OUT OF DATA ERROR 
53| ILLEGAL QUANTITY ERROR 
69 OVERFLOW ERROR 

77| OUT OF MEMORY ERROR 

9g0 UNDEF'D STATEMENT ERROR 
BAD SUBSCRIPT ERROR 
REDIM'D ARRAY ERROR 
DIVISION BY ZERO ERROR 
TYPE MISMATCH ERROR 
STRING TOO LONG ERROR 

191| FORMULA TOD'COMPLEX ERROR 
UNDEF'D FUNCTION 


二 、 逻 辑 正确 性 


内 存 空 间 不 够 
行 号 未 定义 

不 适当 的 下 标 
重复 定义 数组 
除数 为 堆 
数据 类 型 不 匹配 
字符 串 太 长 
语句 形式 太 复 杂 
未 定义 函数 


响 上 TINPUT 语 句 时 输入 
| 不 当 
用 中 断 纠 错 程 


初学 者 往往 认为 ， 只 要 自己 编写 的 程序 没有 语法 错误 ， 
在 机 器 能 运行 ， 程 序 就 是 正确 的 ， 这 种 观点 是 错误 的 。 能 运 
行 的 程序 不 一 定 是 正确 的 ， 这 是 由 于 在 编写 程序 和 输入 程序 
上 ， 难 免 会 导致 程序 的 逻辑 错误 ， 而 逻辑 性 的 错误 是 不 能 被 
BASIC 解 释 程序 发 现 的 。 必 须 送 入 一 些 具 有 代表 性 的 数据 ， 
看 看 执行 的 结果 是 否 正 确 。 如 果 结 果 正 确 ， 则 往往 认为 这 个 


程序 是 正确 的 。 


在 调试 一 个 程序 的 逻辑 正确 性 时 ， 试 算数 据 的 选取 是 相 
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当 重 要 的 。 选 取 试 算数 据 时 要 注意 以 下 几 点 ， 


1。 在 多 分 支 程序 中 , 要 根据 不 同情 况 选 用 若干 个 典型 数 
据 ， 以 便 把 每 个 分 支 都 能 检查 到 。 例 如 ， 在 调试 解 一 元 二 次 
方程 的 程序 时 ， 至 少 应 当 分 别 选 取 三 组 数 ， 使 得 D> 0， 


D=0， D<< 0 ， 才能 检查 到 每 一 个 分 支 。 


5 RENH C68191 、 

16 INPUT “A,B,C=”;A,B,C 

26 IF A=0 THEN 10 

360 “0D=BsB-4$AyC 

48  E=1/2/ 人 A 

56 1F DC9 THEN 96 

660 IF D=6 THEN 129 

378 PRINT“Xl=";Es(-B+SQR(D) )， 
“X2=”";E$s(-B-SQR(D)) 

86 00T0 138 

986，PRINT “X1=";-E#83 +" E3SQR(-D) 3 1 


钙 
198 PRINT “X2=";-E#B 和 一 ”ExSQR(-D) 3 1 
116 60T0 130 
126 PRINT “X1=X2=”;-B$E 
136 END 


]RUN 
杂 ,B,C=1,6,-7 
X1l=1l X2=-? 


]RUN 
A,B,C=3,6,4 
XI1=-1+.5773502691 X2=-1!-,5773592691 


]RUN 
A,B,C=2,-4,2 
X1=X2=1 


2。 对 于 程序 中 的 特殊 点 ， 要 注意 选取 特定 值 来 进行 试 
算 。 例 如 ， 下 面 的 程序 的 计算 结果 要 求 I 从 0 变 到 5 时 ， 当 
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I = 之 时 ， Y=1000， 否则 ,Y = 亡 二 -， 我 们 编 写 程 序 妇 


5 REN C08102 

it INPUT 3 

28 FOR 1=9 7T0 5 STEP S 

38 IF !=>2 TREN Y=1060: 00I0 50 
48 YY=17CI-2) 

586 PRINT 1,Y 

68 NEXT 1 

76 END 


我 们 要 求 步 长 $ 分 别 取 工 ，0.5，0.4，0.2，0.1。 初 看 
起 来 这 个 程序 没什么 问题 ， 因 为 不 论 $ 取 哪个 值 ， 都 会 有 
I= 2 使 FF=1000。 用 S 为 0.5，0.4， 试 算 一 下 ， 结 果 也 是 正 
确 的 ， 我 们 就 会 认为 这 个 程序 正 确 无 误 了 。 但 是 当 S 取 0.2 
时 ， 运 算 结 果 如 下 ， 


IRUN 


人 吧 
全 
ki 


-.5 

-1 

-1.25 
-1.668666657 
-2.5 
-5.00000862 
1.0737418254+89 
4.99999997 
2,49999999 
1 .66666666 
1.25 


有 
ee ee 
co 人 小 和 人 


co 修 入 人 
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在 这 里 I= 2 时 ，Y 立 =1.07374182 忆 +09 而 不 能 得 到 Y 
=1000。 造 成 错误 的 原因 我 们 在 前 面 已 经 讲 过 ,是 由 于 数字 
在 计算 机 中 是 由 二 进 制 近似 表示 的 ， 误 差 使 得 应 当 相 等 的 数 
字 变 得 不 等 了 。 我 们 把 30 行 改 成 

30 IF ABS (I- 2 )<0.000001 THEN 

Y=1000， GOTO 50 
这 样 就 完全 可 以 得 到 正确 结果 了 。 

3。 试 算 的 数字 即 要 有 代表 性 ， 又 要 便于 人 工 计算 ， 以 
便 你 和 计算 机 进行 核对 ， 如 果 选 用 的 数据 过 于 复杂 ， 岂 不 是 
自 找 有 烦 。 


第 二 节 “程序 的 一 般 调试 方法 


调试 程序 有 许多 办 法 ， 我 们 在 这 节 只 介绍 两 种 最 常用 的 
方法 : 

一 、 加 入 STOP 语 句 

在 程序 的 适当 位 置 加 入 STOP 语 句 ， 当 程序 执行 到 这 个 
语句 时 就 停 下 来 ， 你 可 以 用 立即 执行 方式 输出 有 关 变 量 ， 来 
检查 前 面 程序 的 正确 性 。 如 果 输 出 的 变量 值 不 对 ， 则 说 明 程 
序 有 问题 ， 可 以 对 错误 进行 修改 ， 然后 再 从 头 运行 程序 。 如 
果 输 出 的 变量 值 是 正确 的 ， 则 可 在 后 面 再 插入 STOP 语 句 ， 
按 上 述 方法 检查 程序 ， 直 到 程序 正确 。 我 们 用 一 个 极 简单 的 
程序 ， 来 说 明 如 何 调试 过 程 : 

计算 1 -22+32 一 4 二 一 1000: 
为 了 调试 方便 ， 便 于 手 算 核对 结果 ， 计 算 项 数 由 键盘 输入 : 
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5 REN C608201-6 

16 INPUT XK 

206 S=0: N=0 

390  N=N+1 

40 IF N?K THEN 90 

56 IF N/2=1NT(N/2) THEN 70 
66 NM=N*N: 601T0 8 

了 9 = 一 H?N 

86 SzS+i: 60T0 30 

390 PRINT “"S( “3Ki)= 3S 
100 END 


]RUN 
?4 
S(04)=-28 


当 攻 = 4 时 ，S=1-22+3:-42= -10 可 见 程序 计算 的 
结果 - 28 是 错误 的 。 我 们 在 75 行 加 入 STOP 然 后 从 头 运行 程 


5 RE C08201-1 

了 19 INPUT K 

20 S=<0: N=0 

39  N=H+1 

40 IF N>K THEN 90 

56 IF N/2=1NT(N/2) THEN 76 
20 H=NsN: 60T0 868 

76 =-HyHN 

375 STOP 

86 S=Sty: 00T0 30 

96 PRINT “SC K3 )=” ;9 
100 END 


译 ， 使 K = 6 , 运行 到 75 行 就 停机 , 并 显 示 BREAK IN 75， 
这 时 可 以 用 立即 执行 方式 让 机 器 输出 变量 N、M 的 值 。 然 后 
打 入 CONT 命 令 ， 程 序 继续 执 行 ， 再 次 遇 到 75 行 又 停机 ， 
又 可 以 如 上 所 述 对 变量 检查 ; 
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]RUN 
?6 


BREAK IN 75 
]9N ,1 
2 -2 


1CONT . 


BREAK TIN 75 
] ?3N ,加 
4 -3 


可 以 看 出 前 面 程序 有 问题 ， 检 查 程序 第 70 行 应 当 是 M 
= ~NxN， 对 程序 进行 修改 : 


5 REN C68201-2 

10 INPUT K 

20 S=96: N=0 

8 N=M+1 

49 IF N?K THEN 96 

56 JIF N/2=INT(N/2) THEN 78 
60 INH=NeN: 60T0 80 

78 用 =-NSN 

375 ST0OP 

89 ”Ss=S+M: 00T0 30 

96 PRINT “S="; Ki )=" 1S 
166 END 


运行 修改 后 的 程序 ， 键 和 区 = 6 ， 运 行 到 STOP 停 机 后 
再 次 用 立即 执行 方式 输出 N 和 M 的 值 ; 

]RUN 

?26 


BREAK 【N 75 
] ?3N, 半 
2 


JCONT 


BREAK IN 75 
] 2?N ,并 


4 -16 
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可 以 看 出 结果 正确 ， 把 程序 中 75 行 STOP 去 掩 : 


5 REN (C68281-3 


3G N=N+1 
48 IF RN7>K THEN 98 

59 1F N/2=1NT(N/2) THEN 78 
469 -NeN3 G0T0 88 

7 -Ne 

88 S=S3MN: 00T0 38 

99 PRINT“SC“ ii)= "1S 

196 END 

再 次 从 头 执行 程序 进行 试 算 : 


]RUN Y3 
S(3)=6 


3(4)=-16 


输 久 结果 和 手 算 结 果 比 较 是 正确 的 。 我 们 认为 程序 正确 
无 误 。 现 在 可 以 正式 计算 了 ， 
]RUN 


?1066 
5(1606)=-500506 


这 个 程序 很 简单 ， 我 们 只 是 用 它 来 说 明 如 何 通过 中 途 停 
机 来 检查 程序 中 变量 的 当前 值 ， 把 程序 调试 正确 。 

二 、 播 入 打印 语句 

在 程序 的 适当 好 方 插入 打印 语句 ， 输 出 一 些 必要 的 信 
息 ， 为 的 是 更 快 找 出 错误 ， 这 个 方法 比 第 一 种 方法 执行 快 ， 
在 调试 循环 程序 时 很 方便 。 
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已 知 9 组 圆 半 径 R 和 圆柱 高 五 的 值 ， 分 别 求 出 前 5 个 到 
前 9 个 圆 的 面积 总 和 ， 以 及 体积 总 和 。 试 编写 一 个 程序 ， 经 
过 调试 后 ， 已 没有 语法 错误 ， 


S REN C608202-@ 

19 FOR N=$ TO 9 

286 READ R,H 

38 FOR J=1 TO N 

48 5S=9: Y=8 

56 S=S+3.141598ReR 

08 VY=V+SeH 

786 NEXT J 

88 PRINT“N=" NI” “3 S="3S3” “9 和 

36 RESTORE 

100 NEXT N 

118 DATA 1,1,2,6,3,5,4,9,5,2,6,5,7,3,8， 
5,9,10 

128 END 


打 入 RUN， 运 行 一 下 ， 得 到 如 下 结果 : 


1RUN 

N=5 ” S=3.14159 
N=e 。 S=3.14159 V 
N=7  S=3.14159 V 
N=8  S=3.14159 V 


由 上 述 结 果 可 以 看 出 ， 当 N 变 化 时 ， 面 积 3 和 体 积 都 不 
变化 ， 显 然 有 错误 。 为 了 查找 错误 ， 可 以 在 内 循环 体内 插 人 
一 个 打印 语句 ， 输 出 每 次 读 入 的 R， 互 和 每 次 循环 计 算出 的 
面积 3 和 体积 V: 


5 RENU C08202-! 

10 FOR N=5 TO 9 

26 READ R,H 

30 FOR J=l1 TON 

40 S=0: V=0 

50  S=S+3.141594R#4R 
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《48 Y=Yt+SsH 

65 PRINT RS “3S3” “和 7 

76 NEXT 二 、， 

80 PRINT Na” NI” “3 和 Sm 3” “和 Ye iiVY 

90 RESTORE 

100 NEXT N 

116 DATA 1,1,2,6,3,5,4,9,5,2,6,5,7,3,8， 
5,9,10 

120 END 


运行 一 下 这 个 程序 ， 可 以 看 出 每 次 读 入 的 R 和 V 值 没有 
变化 : 


N 

1 3.14159 3.14159 

1 3.14159 3.14159 

1 3.14159 3.14159 

1 3.14159 3.14159 

1 3.14159 3.14159 

=5 ”S=3.14159 Vy=3.14159 
1 9.14159 3.14159 

1 3.14159 3.14159 


ee 9 jj 


检查 一 下 程序 , 发 现 读 语句 放 在 内 循 环 之 外 ,使 得 R，HI 
值 在 内 循环 体 中 不 变化 。 我 们 把 读 语 句 放 在 内 循环 体 以 内 


5 RE C08262-2 

10 ”FOR Nz5 T0i9 

36 FOR J=l TO N 

35 READ R,H 

40 Sz0: Vz=0 

50 5S=>S+3.141599RsR 

00 VanVt+SSH 

65 PRINT RI” “3 ” "32 “和 


86 PRINT “NINI” “Sa 和 33 ” “全 V= 

90 RESTORE 

100 NEXT N 

110 DATA 1,1,2,6,3,5,4,9,5,2,6,5,7,3,8， 
5,9,16 

128 END 
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运行 一 下 这 个 程序 ， 可 以 看 到 输入 的 R， 互 是 正 确 的 。 
但 是 计算 出 的 S 和 V 与 手 算 的 结果 是 不 同 的 ， 分 析 一 下 原因 
是 由 于 V 和 S 没 有 进行 累加 


2D 
己 
tth 修 一 工 


下 汪汪 IN 
cn 


3.14159、3.14159 
12.56636 75.3981663… 
28.27431 141.37155 
50.26544 452,.38896 
78.5397561 157.0795 
S=78.5397501 V=157.0795 
3.14159 3.14159 


= 


分 析 一 下 程序 ， 可 以 看 出 ， 原 因 是 S 和 V 在 每 次 循环 时 
都 清 为 零 ， 应 当 把 原来 的 40 行 放 在 内 循环 体 之 外 20 行 。 


5 
10 
20 
30 
35 
50 
60 
65 
70 
80 
90 
100 
110 
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REH C08202-3 

FOR N=5.TO 9 

S=0: V=0 

FOR J=1l1 TO N 

READ R,H 

S=S+3.14159#R#R 

VY=V+SxyH 

PRINT RI” “HI” “33 ”3VY 

NEXT J 

PRINT “N=" NI” “和 3S= 3 ”YY= “让 
RESTORE 

NEXT N 

DATA 1 1,2,6,3,5,4,9,52,6,5,7,3,8， 
5,9,10 

END 


运行 这 个 程序 ， 可 得 到 如 下 结果 : 
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CD 一 4 


Cn 


验算 一 下 ， 可 知 结果 是 正确 的 。 这 时 可 以 把 调试 时 加 入 
的 PRIN 实 语句 删除 ， 再 把 程序 整理 一 下 ， 就 得 到 了 正确 的 


RUN 


3.14159 3.14159 - 
15.76795 97.:38929 
43.98226 317.360659 
94.2477 1165.52989 
172.78745 1511.10479 


ID oh 个 一 


=5 9=172.78745 V=1511.13479 


1 3.14159 3.14159 


程序 和 运行 结果 ; 
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REH C08202-4 

FOR HN=5 T0 9 

S=6: y=8 

FOR J=! TO N 

READ R,8 

S=3+3.14159#RzR 

Y=V+9#H 

NEXT J 

PRINT “Nz= ”3N” ”3 "S=" 3 3” “六 Ys "时 
RESTORE 


NEXT N 


DATA 1,12,6,3,5,4,9,5,2,6,5,7,3,8， 
5,9,10 
ENT 


1RUN 


N=5 
N=6 
N=7 
N=8 
N=9 


S=172,78745 VY=1511.10479 
S=285,88469 Y=2940.52824 
S=439.8226  V=4259.99684 
3S3=640.88436 Y=7464.41784 
5=895.353151 YY=16417.93493 


三 、 跟 踪 调 试 


跟踪 调试 也 是 一 种 常用 的 调试 方法 。 在 中 华 学 习 机 BA、\- 
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SIC 中 ， 提 供 了 跟踪 和 取消 跟踪 两 个 语句 。 
跟踪 语句 ，TRACE 
该 语句 的 功能 是 跟踪 程序 的 执行 ， 把 执行 过 的 行 号 依次 
显示 在 屏幕 上 。 
取消 跟 踪 话 句 ， NOTRACE 
该 语句 的 作用 是 取消 跟踪 。 一 旦 使 用 了 跟 跨 语句 ， 程 序 
的 执行 就 处 于 跟踪 方式 ， 并 且 使 用 RUN、CLEAR NEW、 
DEL、RESET 都 不 能 解除 跟踪 ， 即 使 从 磁盘 或 磁 带 中 调和 人 
另外 一 个 程序 执行 ， 如 不 能 解除 跟踪 , 必须 使 用 NOTRACE 
语句 。 
TRACE 和 NOTRACE 语 句 可 以 在 立即 执行 方式 使 用 。 
也 可 以 加 上 适当 的 行 号 放 在 程序 之 中 使 用 。 
例如 ， 如 果 要 用 跟踪 方式 执行 上 一 章 第 二 节 中 求 多 边 形 
钾 积 的 程序 C07030。 
5 RENH C07303 
10 Az=3.0: BR=3.8: C=5.8 
20 00SUB 200 
30 A=5.8: B=5.1: C=5.2 
40 00SU8 200 
50 A=4,5: B=1l1,9: C=5.2 
60 00SUB 200 
70 A=3.5: B=2,.7:; C=5.1 
80 00SUB 200 
90 PRINT“S="?S 
100 END 
2080 L=(A+B+C)7/2 
210 S1=SQR(L#(L-A) 站 (L-B)s(L-C))》 


220 3=S+S1l 
230 RETURN 


可 以 在 BASIC 提 示 符 下 先 执行 TRACE 语 句 ， 再 打 人 
RUN 命 令 ， 屏 幕 上 依次 显示 出 执行 过 的 行 号 : 
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]TRACE 


]RUN 

#5 信 10 #10 #1@ #20 #2008 #210 #220 #238 
#30 #30 #39 #40 #200 #210 #220 #230 #50 
#50 #50 #68 #200 #210 #220 #239 #79 #79 
#7@ #80 #200 #210 #220 #230 #90 S=26,.07 
79525 

#100 


从 屏幕 上 可 以 很 清楚 地 看 到 程序 执行 转子 语 句 和 返回 
语句 的 过 程 ， 用 跟踪 方式 执行 具有 分 支 结构 和 循环 结构 的 程 
序 ， 同样 可 以 很 清楚 地 显示 出 程序 运行 的 轨迹 ， 这 样 就 可 以 . 
分 析 判 断 出 程序 中 是 否 在 分 支 转移 、 循 环 过 程 和 子 程序 调用 
中 存在 问题 。 

要 解除 跟踪 方式 ， 则 执行 语句 : 

]NOTACE。) 

如 果 只 想 对 程序 中 的 某 一 部 分 进 行 跟踪 ， 可 以 把 TRA- 
CE 和 NOTRACE 做 为 程序 行 写 在 程序 中 ， 比 如 ， 我 们 只 想 
对 第 一 次 调用 子 程序 进行 跟踪 ， 可 以 加 入 15 行 和 25 行 : 

5 REH C08401 

10 A=3.0: B=3.8: C=5.8 
15 TRACE 

26 060SUB 200 

25 NOTRACE 

30 A=5.8: 8Bz5.1: C=5.2 
40 60SUB 200 

50 A=4.5: B=<1.9: C=5.2 
60 00SUR 200 

70 A=3.5: 8B=2.7:; C=5.! 
80 00SUB 290 

98 PRINT "S=")S . 

100 END 

206 L=(A+B+C)7Z2 

210 3S1=SQR(Ly(L-A)#(L-8)#(L~C) 
220 S=S+S 

230 RETURN 


打 RUN 命 令 运行 程序 ， 显 示 如 下 结果 : 


]RUN 
#5 砷 10 #10 #10 #15 #20 #200 #210 #220 
#230 #25 S=26.0779525 


第 三 节 ”出错 处 理 


程序 运行 过 程 中 ， 一 且 发 现 错误 ， 就 会 在 屏幕 上 显示 出 
错误 信息 〈 如 果 打 印 机 已 联 入 ， 也 可 以 打印 出 错误 信息 ) 并 
且 中 断 程序 的 运行 。 

程序 中 出 现 的 错误 ， 可 以 分 成 两 类 ， 一 类 错误 是 致命 错 
误 ， 必 须 对 程序 进行 修改 ， 才 能 使 程序 正常 运行 。 还 有 一 种 
错误 〈 象 溢出 、 除 数 为 0 ， 函 数 自 变 量 非 法 等 等 ) ， 则 可 以 
采取 某 些 补救 措施 ， 使 程序 能 继续 运行 下 去 。 补 救 的 办 法 是 
自己 根据 需要 编写 一 段 出 错 处 理 程序 ， 在 源 程 序 中 可 能 出 错 
的 好 方 用 一 条 ONERR GOTO 语 句 转 到 出 错 处 理 程序 ， 然 
后 再 返回 出 错 地 点 继续 执行 。 

一 .ONERR GOTO 和 RESUME 语 名 

ONERR GOTON 语 句 是 出 错 后 转 处 理 程序 语句 ， 它 
的 格式 是 : 

行 呈 ONERR GOTO 

程序 一 执行 这 个 语句 ， 就 把 内 存 中 的 216 单 元 的 B7 位 置 
为 1， 叫 做 出 错 处 理 标志 。 以 后 如 果 程 序 执行 中 发 生 错误 ， 
就 自动 地 转 到 ONERR GOTGO 语 名 指定 的 出 错 处 理 程 序 的 
第 一 个 语句 去 执行 处 理 程序 。 该 语句 可 以 放 在 程序 的 任何 地 
方 ， 但 是 只 有 它 被 执行 过 以 后 发 生 错 误 才 会 转 入 出错 处 理 程 
序 ， 因 此 一 般 地 将 该 语句 设置 在 可 能 出 错 的 程序 段 之 前 。 
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RESUME 语 句 是 出 错 处 理 程序 的 返回 语句 ， 它 是 出 错 
处 理 程序 逻辑 上 的 最 后 一 个 语句 ， 它 不 是 返回 到 出 错 语句 的 
下 面 一 个 语句 ， 而 是 返回 到 出 错 的 位 置 继 续 执行 。 

ONERR GOTO 和 RESUME 语 名 的 使 用 ,可 以 使 得 当 
程序 出 错时 能 进行 适当 的 处 理 ， 从 而 避 弓 了 机 器 打印 出 错 信 
息 和 终止 程序 的 执行 。 

二 、 出 错 处 理 程 序 的 编写 

程序 出 错 的 性 质 是 多 种 多 样 的 ， 处 理 的 方法 也 各 不 根 
同 。 在 出 错 处 理 程 序 中 ， 可 以 给 出 适当 的 提示 ， 也 可 以 改变 
一 些 数据 ， 从 而 使 程序 能 正确 地 执行 下 去 。 

下 面 是 一 个 小 例子 ， 从 100 行 开始 是 出 错 处 理 程 序 ， 


5 RENH C08381 

1g ONERR 60T0 190 

20 1NPUT AS 

38 1NPUT 8X,C%,D% 

40 EX%=(BX+C%)7DS 

50 PRINT AS,E% 

60 00T0 28 

100 ER=PEEK(222) 

110 IF ER=255 THEN END 

128 IF ER=133 THEN EX=32767: 00T0 50 
138 IF ER=53 OR ER=254 THEN 170 

146 PRINT “PROGRAMMLNG ERROR DETECTED 
159 PRINT “ERROR CODE+";ER 


168 STOP 

.179 PRINT ”;: REM CTRL-G IN QUOTES 
186 PRINT -ERROR TRY AGAIN” 
196 RESUNE 


庄 于 要 对 10 行 一 60 行 这 段 程序 进行 出 错 处 理 ， 并 且 根 据 
这 段 坚 序 可 能 出 现 的 错误 写 了 一 段 出 错 处 理 程序 。 程 序 中 的 
第 5 行 表明 当 10 行 ~60 行 的 程序 出 错时 ， 就 转 移 到 100 行 开 
始 的 出 错 处 理 程序 。 
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我 们 在 第 一 节 已 经 讲 过 ， 程 序 运行 中 一 旦 出 错 ， 解 释 程 
序 会 把 错误 编码 放 入 在 贮 器 中 的 222 单 元 ， 出 错 处 理 程序 中 
的 100 行 就 是 从 存 贮 器 的 222 单 元 取出 错误 编码 ， 如 果 错 误 代 
码 是 255 则 结束 运行 ;如 果 错 误 代 码 是 133 〈 即 除数 是 0) ， 
团 卫 %% 为 一 个 贡 数 〈 当 然 也 可 以 进行 其 他 处 理 ) ;如果 错误 
代码 是 53 或 254， 从 第 一 节 的 错误 编码 表 中 可 知 发 生 了 输入 
此 误 ， 则 跳 到 130 行 执行 ， 并 且 发 出 “ 哪 ” 的 声音 要 求 重新 
险 入 。 如 果 是 其 他 错误 则 给 出 错误 编码 。 

我 们 在 这 节 前 面 曾 说 过 ， 程 序 运行 过 ONERR GOTO 
语句 后 ， 解 释 程 序 会 把 内 存 中 的 216 单 元 的 B7 位 置 为 1 , 作为 
攻 误 处 理 标志 。 因 此 ， 如 果 想 要 退出 ONERR GOTO 语 句 
状态 ， 可 以 使 用 POKE 216，n 语 名 (其 中 mn<128, 目的 是 使 
得 B7 为 0 ) 回 到 自动 点 错 方式 。 

RESUME 语 名 的 作用 是 返 到 原来 的 出 错 位 置 ， 重 新 执 
行 出 错 的 那 一 行 。 如 果 我 们 希望 对 错误 处 理 后 不 返 回 原来 的 
出 错 行 ， 就 不 必 使 用 RESUME 语 句 ， 而 可 以 使 用 其 他 转向 
语句 转 到 想 要 去 的 地 方 。 比 如 于 面 的 纠 错 程序 的 120 行 ， 使 
用 的 是 GOTO 50 语 句 。 

如 果 在 出 错 处 理 程序 中 又 发 生 了 错误 ， 则 RESUME 的 
使 用 会 使 程序 陷 人 死 循 环 ， 这 时 可 以 用 Ctrl-Reset，Ctrl-C 
来 退出 死 循 环 。 


习题 八 
调 试 程 序 的 一 般 方 法 有 哪些 ? 
。 试 着 用 跟踪 方法 调试 一 个 具有 多 重 循环 结构 的 程序 。 
。 内 存 中 的 216 单 元 和 222 单 元 用 来 做 什么 ? 
。 如 何 编写 纠 错 处 理 程 序 。 


心 Co fi 一 
@ 


第 九 音 “图形 绘制 


中 华 学 习 机 具有 在 监视 器 〈 或 电视 机 ) 的 屏幕 上 显示 彩 
色 图 形 的 功能 。 利 用 中 华 学 习 机 BASIC 语 言 绘制 图 形 是 很 容 
易 的 。 


第 一 节 ”屏幕 工作 方式 


中 华 学 习 机 的 显示 方式 有 五 种 ， 也 就 是 说 它 的 监视 器 
〈 或 电视 机 ) 的 屏幕 有 五 种 工作 方式 。 即 文本 方式 、 低 分 辩 
图 形 方式 、 高 分 辨 图 形 方式 ， 图 形 和 文本 混合 方式 及 中 文 方 
式 。 在 使 用 中 ， 通 过 命令 可 以 使 显示 方式 相互 转换 ， 下 面 对 
各 种 显示 方式 简单 介绍 如 下 : 

一 、 文 本 方式 

文本 方式 可 以 在 屏幕 上 显示 24 行 ， 每 行 显示 40 个 字符 ， 
每 个 字符 由 5 x 7 点 阵 组 成 。 一 开机 时 就 进入 文本 方式 ， 西 
文 BASIC 语 言 程序 就 是 使 用 的 这 种 显示 方式 。 

二 、 低 分 辨 图 形 方式 . 

这 种 方式 是 在 屏幕 上 显示 48 x 40 共 1920 个 小 方块 。 每 个 
小 方块 可 在 16 种 不 同 颜色 中 选择 一 种 颜色 。 通 过 给 这 些小 方 
块 填充 颜色 来 绘制 图 形 。 

三 、 高 分 辨 图 形 方式 

这 种 方式 可 在 屏幕 上 显示 192 x 280 共 53700 个 彩色 点 。 
每 个 点 可 在 6 种 不 同 颜色 中 选择 一 种 颜色 。 同 低 分 辨 图 形 方 
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式 一 样 ， 也 是 通过 给 这 些 点 填充 颜色 来 绘制 图 形 。 

四 、 图 形 和 文本 混合 方式 

混合 显示 方式 可 以 是 文本 和 低 分 辩 图 形 的 混合 方式 ， 也 
可 以 是 文本 和 高 分 辨 图 形 的 混合 方式 。 此 种 显示 方式 图 象 的 
下 部 有 4 行 字符 ， 而 其 上 部 仍 为 低 分 辨 或 高 分 辨 图 象 。 即 第 
一 种 混合 方式 中 ， 彩 色 小 方块 减少 8 行 ， 成 为 40 行 。 而 第 二 
种 混合 方式 中 ， 彩 色 点 闪 192 行 减 中 到 160 行 。 

混合 方式 与 纯 图 象 方式 的 转换 可 以 由 程序 通过 软 开 关 来 
实现 。 详 细 方法 后 面 介 绍 。 

五 、 中 文 方式 

中 华 学 习 机 中 文 BASIC 的 显示 方式 为 高 分 辨 图 形 方式 ， 
中 文 的 显示 区 使 用 内 存 中 高 分 辩 第 2 页 。 这 种 方式 能 显示 
16 x 16 点 阵 构成 的 7445 种 图 形 符号 。 其 中 包括 6763 个 汉字 及 
英文 字母 ， 日 文 假名 、 拉 丁字 母 、 俄 文字 母 、 希 腊 字 母 等 。 
这 种 方式 ， 显 示 屏 共有 11 行 ， 其 中 第 11 行 为 状态 行 ， 用 来 显 
示 当 前 的 输入 方式 和 相应 的 提示 信息 ， 因 此 满 屏幕 实际 显示 
10 行 ， 每 行 可 显示 17 个 汉字 。 -在 中 文 方式 下 ， 如 状态 行 左 端 
显示 “ 西 文 ” 时 ， 输 入 的 英文 字母 或 各 种 符号 在 屏幕 上 占 半 
个 汉字 的 位 置 。 如 状态 行 左 端 显示 “区 位 >” 时 ， 则 按 区 位 码 
输入 各 种 字母 和 符号 占 一 个 汉字 的 位 置 。 

六 、 各 种 工作 方式 的 切换 

加 电 后 系统 处 于 西 文 BASIC 控 制 之 下 ， 也 就 是 说 处 于 文 
本 方式 。 此 时 若 打 入 中 文 键 ， 系 统 则 进入 中 文 BASIC， 也 就 
是 说 进入 中 文 方式 。 这 时 ， 我 们 利用 GR 语 名 可 以 进入 低 分 
辩 图 形 与 文本 混合 方式 ， 利 用 HGR 或 HGR2 可 以 进入 高 分 
辨 图 形 与 文本 混合 方式 。 当 处 于 混合 方 式 时 ， 利 用 POKE- 
16302,0 这 个 语句 可 以 进入 ( 纯 ) 图 形 方式 。 在 高 、 低 分 辩 
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图 形 方 式 下 ， 利 用 POKE-16301, 0 语句 可 以 进入 混合 方式 。 
当 处 于 图 形 方式 或 者 混合 方式 下 ， 使 用 TEXT 语句 可 以 返 


回 到 文本 方式 。 
由 于 在 图 形 绘制 时 不 能 使 用 中 文 ， 所 以 下 面 仅 介绍 文本 


绘图 及 低 、 高 分 辨 绘图 。 


二 节 ”文本 绘图 


文本 绘图 是 指 在 文本 方式 下 ， 利 用 BASIC 语言 的 语句 
和 函数 ， 在 某 些 指定 位 置 上 打印 字符 或 符号 来 绘制 图 形 的 。 
由 于 这 些 函 数 和 语句 在 前 几 章 已 经 作 过 介绍 ， 在 这 里 就 不 再 


介绍 了 。 


下 面 介绍 几 个 文本 绘图 的 例子 。 
用 星 号 打印 一 个 等 腰 三 角形 ,程序 及 程序 运行 
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本 


REN C03201 

PRINT TAB(16) 1 "如 

FOR 1=17T05 

PRINT TAB(16-1)g"8eg SPC(281-1) )" 字 “ 
NEXT 

PRINT SPC( 85) 


字 襄 训 伴 闷 检 训 窜 起 他 作 闷 站 本 训 


结果 如 下 * 


5 REK C09202 

19 1NPUT K 

28 PRINT 

36 FOR A= 1YT0K 

46 FOR B mlT0O29A- 1 
56 PRINT TAB( 286 + B 一 A) 久 帅 " 
686 NEXT 8 

379 PRINT 

86 NEXT A 

98 FORAS1T0OK-I 

100 PRINT TAB( 21 ~ 二 A) 和 
116 FOR 8 > 2sK-1-24A TO 1 STEP ~1 
120 PRINT “ 池 "; 

136 NEXT 8 

146 PRINT 

156 NEXT A 

170 FOR A = 1! TOK 

188 PRINT TAB(19-K-A)? 

190 FOR B = 1 TO KY 2 
200 PRINT “ 闻 " 

219 NEXT B 

226 PRINT TAB( 286 + A)S 
2390 FOR B = 1 TOK + 2 
2406 PRINT “ 京 "; 

256 NEXT B 

2606 PRINT 

276 NEXT A 

280 END 


运行 这 个 程序 ， 首 先 要 求 你 输入 K 值 。 根 据 开 值 的 大 
小 ， 决 定 所 画 的 三 葵 形 的 大 小 。 

这 个 三 鞭 形 在 这 个 程序 中 分 三 部 分 画 ， 第 一 部 分 是 从 20 
语句 到 80 语 句 ， 画 开行 等 腰 三 角形 ， 第 二 部 分 从 90 语 名 到 
150 语 句 是 画 一 个 - 工行 倒 等 腰 三 角形 。 这 两 部 分 画 完 
后 ， 就 画 成 一 个 葵 形 。 第 三 部 分 是 从 170 诸 句 到 270 语 句 ， 它 
是 画 下 面 两 个 平行 四 边 形 。 

当 给 K 赋 值 时 ， 所 画图 形 如 图 
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]RUN 


RUN ， 字 李 让 
?33 只 全 本 含 名 


率 
字 训 本 
宙 届 可 机 可 
字 机 办 刷 机 机 本 
可 加 血 可 可 市 宙 让 机 
本 市直 检 太 刘 让 本 本 可 
让 大字 宙 事 证 可 机 本 相让 林 
让 认 李 闪 加 字 让 本 机 本 订 
本 本 检 本 可 本 家 办 水 
本 训 认 李 认 机 
字 相 本 好 认 
浆 本 本 
字 
字 本 让 可 本 字 检 训 事 “本 本 本 机 字 本 本 本 
闻 机 罕 本 本 机 要 本 让。 本 本 检 检 训 事 本 本 宙 
本 市 审计 机 本 市 信 本 字 事 冰 布 训 本 训 检 本 
交 训 率 让 事 本 本 本 本 可 六 闻 闪 中 训 训 训 本 
六 本 认 训 认 囊 训 检 本 市 轨 可 训 浆 他 训 可 
家 本 本 本 水 灾 字 本 家 六 本 本 机 本 本 本 可 本 
交合 六 本 本 本 闻 训 革 六 字 冰 囊 训 要 可 可 
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第 三 节 “” 低 分 辩 率 绘图 


一 、 低 分 辩 率 绘图 方式 

低 分 辩 率 绘图 有 图 形 方 式 和 图 形 与 文本 混合 方式 两 种 。 

1。 混 合 方式 

格式 ，GR 

这 个 命令 把 屏幕 上 部 置 成 40 x 40 可 显示 的 黑色 小 方块 ， 
作为 低 分 辩 率 图 象 显示 区 ， 屏 幕 下 部 二 行 作 为 文本 显示 行 。 
这 种 显示 方式 是 低 分 辩 率 图 形 和 文本 的 混合 方式 。 

2。 图形 方式 

当 执 行 过 GR 命 令 后 。 即 进入 了 低 分 辩 率 混合 方式 。 这 
有 时， 您 若 想 进入 低 分 辨 率 〈 纯 ) 图 形 方式 ， 可 用 POKE 语 名 
或 PEEK 数 访问 内 存 地 址 为 - 16302 (相当 于 $CO52 ) 单 
元 。 (POKE 和 PEEK 见 第 十 一 章 ) 。 

例 ， ] POKE -16302,0./ 

执行 完 这 个 命令 后 ， 屏 幕 下 部 的 四 行文 本 显示 就 消失 
了 ， 将 屏幕 置 成 40 x 48 个 可 显示 的 小 方块 。 实 际 上 ， 执 行 这 
个 命令 ， 将 混合 显示 方式 的 4 行文 本 显示 行 消除 使 得 显示 图 
形 的 位 置 增加 八 行 。 

3. 从 ( 纯 ) 图 形 方式 返回 到 混合 方式 

通过 访问 地 址 - 16301 或 用 “GR 2” 命令 ， 可 返回 到 混合 
显示 方式 ， 

例 ，POKE  - 16301,0 

该 命令 可 保持 当前 40 列 图 形 不 变 而 将 四 行文 字 行 恢复 

GR 
该 命令 清除 屏幕 图 形 返 回 到 混合 显示 方式 。 
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4。 返 回 到 文本 方式 

利用 TEXT 工 命令 可 从 低 分 辩 率 图 形 方式 或 高 分 辩 率 图 形 
方式 转换 到 文本 显示 方式 。 

格式 ， 和 下 EX 

注意 : 第 一 ， 工 EX 工 命令 仅 返 回 到 文本 显示 方式 并 不 清 
屏 ， 由 于 文本 方式 和 图 形 方式 的 显示 使 用 同一 块 内 存 ， 所 以 
当 执行 TEXT 命 令 后 ， 屏 幕 上 可 能 显示 的 是 一 些 奇怪 的 文 
字 ， 这 是 因为 中 华 学 习 机 将 图 形 资 料 变 成 文字 资料 的 原因 。 
如 果 想 从 屏幕 上 清除 这 些 奇 怪 的 文字 ， 你 可 使 用 下 面 三 种 方 
法 之 一 清除 屏幕 。 

(1 ) 按 下 ESC 一 @ 

(2 ) 使 用 CALL 一 936 

(3 ) 使 用 HOME 命令 

第 二 ，TEX 工 语句 是 返回 到 满 屏 文本 显示 方式 ， 由 于 汉 
字 显 示 是 利用 图 形 显 示 的 ， 所 以 ， 在 执行 工 EXT 命 令 后 ， 计 
算 机 不 能 使 用 汉字 。 

二 、 低 分 辩 率 绘图 语句 

下 面 介绍 在 低 分 辨 图形 方式 下 的 绘图 语句 ， 其 中 有 置 图 
形 颜色 、 画 点 、 画 线 及 返回 坐标 点 的 颜色 值 的 语句 和 函数 。 

1。 低 分 辩 率 图 形 的 颜色 

格式 ，COLOR = n 

该 语句 的 作用 是 置 低 分 辩 率 图 形 的 颜色 。 如 果 了 为 实 
数 ， 则 将 其 自动 转换 为 整数 。m 取 值 范围 在 0 ~255 之 间 ， 
大 于 等 于 16 的 mn 自动 以 16 为 模 处 理 。〈 低 分 辩 率 图 形 的 颜色 
共有 十 六 种 ， 用 0 ~15 这 十 六 个 数字 分 别 对 应 十 六 种 颜色 。 
但 COLOR 语 名 中 的 mn 公 许 达到 255 而 不 会 出 现 错误 。 当 你 
定 颜 色 的 数字 了 大 于 15 时 ， 则 ma 自动 以 16 为 模 处 理 ， 即 对 3 
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按 16 取 模 。 例 COLOR = 65， 则 以 16 为 模 处 理 后 等 于 4 ， 也 
就 是 说 你 定 的 颜色 COLOR = 4。) 


u 值 与 颜色 的 对 应 关系 如 表 9-3-1 


颜色 员 | 红 深蓝 | 紫 Rh 可 邮 棕 各 让 ?| 红 取 四 向 


是 lalslaels 


.注意 : 下 面 介绍 的 绘图 语句 所 画 的 点 ， 线 的 颜色 都 是 最 
近 一 次 COLOR 语 句 所 设 定 的 颜色 。 如 果 执 行 GR 语 句 后 没 
有 执行 COLOR 语 句 ， 系 统 自动 将 图 形 的 颜色 置 为 黑 色 。 

(CCOLOR 语 名 默认 的 颜色 是 黑色 。) 

2。 在 指定 位 置 上 画 点 

格式 ，PLOT X，Y 

在 低 分 辩 率 图 形 方式 下 ， 该 语句 的 作用 是 在 〈X，Y ) 
位 置 画 一 个 点 一 一 实际 上 是 一 个 小 的 长 方形 。 

例如 ，PLOT 23，18 
. 在 第 24 列 与 第 19 行 的 位 置 画 一 个 小 长 方形 ， 小 长 方形 的 
颜色 是 前 面 COLOR 语 句 所 选择 的 颜色 。 

注意 : 第 一 ， 由 于 低 分 辩 率 图 形 方式 的 屏幕 是 40 列 x 48 
行 〈 纯 图 形 方式 时 ) ， 所 以 区 的 取 值 范围 为 0 ~39; Y 立 的 到 
值 范围 为 0 ~47。 如 果 取 值 超出 这 个 限制 ， 系 统 将 给 出 错误 
信息 。 

? Illegal quantity erroT 

告诉 您 所 引用 的 参数 超出 范围 。 

第 二 ， 本 语句 中 的 入 ，Y 参 数 还 可 以 用 运算 式 来 代替 。 
但 应 注意 运算 式 的 值 不 应 超出 范围 限制 。 
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例如 ，PLOT YAZ+12，X- 4 

3。 绘 制 水 平 线 或 垂直 线 

(1 ) 绘制 水 平 线 

格式 ，HLIN X1，X2 AT Y 

在 低 分 辨 率 图 形 方 式 下 ， 以 (Xl， Y) 为 起 点 ， 以 
(X2，Y) 为 终点 在 屏幕 上 画 一 条 水 平 线 。 也 就 是 说 在 屏幕 
上 Y 行 从 X1 列 到 X2 列 画 一 条 水 平 线 。 

例如 : HLIN 2,. 39 AT 20 

在 20 行 从 第 3 列 到 第 39 列 画 一 条 水 平 线 。 

注意 ， XI1 和 和 X2 的 取 值 必 须 在 0 ~39 之 间 ，Y 的 取 值 必 
须 在 0 ~47 之 间 ， 否 则 会 出 错 。 

(2 ) 绘制 垂直 线 

格式 : VLIN YYl，Y2 AT X 

在 低 分 辩 率 图 形 方式 下 ， 以 〈X，Y1) 为 起 点 ， 以 (以 ， 
Y2) 为 终点 在 屏幕 上 绘制 一 条 垂直 线 。 也 就 是 说 在 屏幕 上 X 
列 从 Y1 行 到 Y2 行 画 一 条 垂直 线 。 

例如 : VLIN 2，34 AT 33 

在 34 列 从 第 3 行 到 第 35 行 画 一 条 垂直 线 。 

注意 ，Y1 和 Y2 的 取 值 必 须 在 0 ~47 之 间 ，X 的 取 值 必 
须 为 0 ~39 之 间 ， 否 则 会 出 现 范围 超出 错误 。 

4。 返 回 指定 坐标 点 的 颜色 值 

格式 ，SCRN (X，Y) 

这 是 一 个 函数 ， 该 函数 返回 低 分 辩 率 图 形 方式 下 (X， 
Y) 坐标 点 的 颜色 值 。X 和 立 的 取 值 范围 可 在 0 ~47 之 间 。 

例如 ，X=SCRN (12，24) 

将 第 13 列 第 25 行 处 的 点 的 颜色 的 代码 值 放 入 变量 X 中 。 

又 如 : 输入 下 面 这 些 语 句 ， 可 以 在 屏幕 上 给 出 第 13 列 与 
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第 13 行 交叉 点 的 颜色 值 14。 


GR 
COLOR = 14 
PLOT 12，12 


PRINT SCRN (12，12) 


注意 ,在 高 分 辨 率 图 形 方式 下 ，SCRN 返 回 的 仍 是 低 分 
辩 率 图 形 区 域 中 的 颜色 值 ， 而 与 高 分 辩 率 图 形 无 关 。 

三 、 低 分 辨 率 绘图 举例 

下 面 ， 我 们 用 前 面 介 绍 的 低 分 辩 率 绘图 语句 绘制 图 形 。 

例如 : 画 一 个 方 框 及 一 条 对 角 线 


RENH C09301 

GR 

FOR ! = 1 T0 39 

COLOR~ | 

PLOT 1,1: PRINT SCRN(CT,1); SPC(1)， 
NEXT 

HLIN 0,39 AT 8 

HLIN 6,39 AT 39 

YLIN 06,39 AT 0 

YLIN 90,39 AT 39 


执行 这 个 程序 ， 可 以 画 一 个 长 方形 和 一 条 对 角 线 。10 语 
名 是 进入 低 分 辩 率 图 形 方 式 。 从 20 语 名 到 40 语 名 是 画 对 角 
线 ， 每 次 画 一 个 点 ， 每 画 一 个 点 改变 一 次 点 的 颜色 ， 并 且 返 
回 这 个 点 的 颜色 值 ， 这 些 语句 一 共 执 行 39 次 ， 也 就 是 说 循环 
了 39 次 。50 语 名 到 80 语 句 是 画 长 方形 。 运 行 这 个 程序 所 画图 
形 如 图 9-1 

运行 完 这 个 程序 ， 您 可 以 打 入 TEXT 命令 返回 到 纯 文 
本 方式 。 这 时 屏幕 上 显示 出 一 些 杂乱 的 信息 ， 您 可 以 通过 输 
和 HOME 命令 清 屏 来 清除 这 些 信 息 。 
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12345678910111213141501 
23456789101112131415 012 
34567 


图 9-1 


第 四 节 高 分 辨 率 绘图 


一 、 高 分 辩 率 图 形 方式 

中 华 学 习 栅 具有 高 分 辩 率 绘图 的 能 力 ， 高 分 辨 率 图 形 方 
式 有 两 页 的 内 存 区 域 可 用 。 高 分 辩 率 将 水 平方 向 分 为 280 个 
位 置 而 在 垂直 方向 分 为 192 个 位 置 〈 图 形 方式 ) 或 者 160 个 位 
置 〈 图 形 文本 混合 方式 ) 。 

1。 混 合 方式 第 一 页 

格式 ， HGR 

该 语句 置 屏幕 为 高 分 辨 图形 与 文本 显示 的 混合 方式 ， 显 
示 第 一 页 。 在 这 种 显示 方式 下 不 能 显示 汉字 。 

例如 :了 GR 

执行 了 SR 后， 将 屏幕 上 图 形 区 置 成 黑色， 并 清除 原来 
在 第 一 页 的 高 分 辩 率 图 像 。 

如 果 您 想 显示 高 分 辨 率 图 形 的 第 一 页 并 且 不 清除 原来 第 
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一 页 所 保存 的 图 像 。 可 利用 下 面 方法 。 

POKE -16304,0 ，” 选 图 形 方 式 

PORKE -16297,0 ，” 选 高 分 辨 这 图 形 

POKE -16300,0 ” 选 第 一 页 

其 中 第 一 个 语句 POKE  - 16304,0 是 选 图 形 方 式 而 不 
将 屏幕 颜色 置 为 黑色 ， 这 样 ， 实 际 上 不 清除 原来 保存 的 图 
像 。 第 二 个 语句 置 为 高 分 辩 率 图 形 方 式 ， 第 三 个 语句 选 纯 高 
分 辨 率 图 形 第 一 页 ， 如 果 想 置 成 高 分 辩 率 图 形 和 文本 显示 混 
合 方式 ， 第 三 语句 改 成 POKE - 16301,0 即 可 。 

2。 显 示 第 二 页 

格式 ，HGR 2 

该 语句 同 HGR 语 名 的 功能 ， 仅 有 一 点 不 同 即 显示 图 像 
来 自 内 存 高 分 辩 图 像 显 示 存 贮 区 的 第 二 页 。 

执行 该 语句 后 ， 屏 幕 显示 是 混合 方式 并 将 图 形 区 置 成 黑 
色 ， 清 除 原 第 二 页 所 保存 的 图 称 。 但 您 可 以 用 下 面 方法 不 将 
屏幕 署 成 黑色 和 清除 原 第 二 页 图 像 。 

POKE -16304,0 

POKE -16297,0 

POKBE -16299,0 

其 中 前 两 个 语句 同 前 HGR， 第 三 个 语句 作用 是 选 高 分 
辨 图 形 第 二 页 。 

注意 : 由 于 中 文 BASIC 的 显示 区 使 用 内 存 中 高 分 辩 的 第 
二 页 ， 所 以 在 中 文 BASIC 中 使 用 HG-R2 的 作用 是 清 屏 幕 ， 
连同 状态 行 也 被 清除 掉 。 如 果 在 这 种 情况 下 使 用 高 分 辩 率 绘 
图 语句 ， 则 所 绘制 的 图 形 与 当时 屏幕 上 的 字符 混 在 一 起 显 
示 。 

3。 高 分 辩 率 图 形 方 式 
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用 HGR 或 HGR2 语 句 只 能 进入 高 分 辩 率 图 形 与 文本 显示 
的 混合 方式 。 这 种 方式 的 屏幕 图 形 区 显示 280 x 160 个 点 ， 并 
在 图 形 区 下 面 留 4 行文 本 显示 行 。 

屏幕 的 显示 方式 可 以 由 混合 显示 方式 进入 全 屏幕 图 形 方 
式 。 这 种 方式 只 有 屏幕 图 形 区 没有 文本 显示 行 ， 将 4 行文 本 
行 变 成 高 分 辩 率 图 形 显示 点 ， 这 样 ， 每 屏 可 显示 280 x 192 个 

进入 纯 高 分 辩 图 形 方 式 与 进入 纯 低 分 辩 图 形 方式 的 方法 
相同 ， 只 要 使 用 下 面 语句 即 可 。 

POKE -16302，0 

如 果 您 想 返 回 到 高 分 辨 率 图 形 和 文本 显示 混合 方式 ， 可 
用 下 面 语句 。 

POKE -16301，0 

4。 高 分 辩 率 图 形 的 内 存 位 置 

使 用 高 分 辩 率 图 形 时 与 您 所 用 的 计算 机 内 存 数 量 有 关 。 
当 您 使 用 的 是 固化 在 ROM 中 的 BASIC 时 ， 计 算 机 必 须 具 有 
16 开 以 上 的 内 存 才 可 以 使 用 高 分 辩 率 图 形 的 第 一 页 。 内 存 容 
量 在 24 玫 以 上 时 才 可 以 使 用 第 二 页 。 这 是 由 于 高 分 辩 率 图 形 
第 一 页 占用 内 存 中 8192~16383 (8K~16K) 的 区 域 ， 第 
二 页 占用 内 存 中 16384~24575 (16 玫 一 24K ) 的 区 域 。 不 过 
您 可 以 放心 地 使 用 高 分 辩 率 图 形 的 第 一 页 或 第 二 页 ， 因 为 
中 华 学 习 机 的 内 存 RAM 的 容量 是 64K 。 

BASIC 语 言 不 会 自动 保护 高 分 辩 率 图 形 的 内 存 区 域 ， 所 
以 当 一 个 程序 太 大 需要 占用 更 多 的 内 存 时 ， 有 可 能 占用 图 形 
页 的 内 存 区 域 。 如 果 占 用 这 些 内 存 区 域 ， 将 会 毁 掉 这 些 区 域 
的 图 形 。 解 决 这 样 问题 的 方法 就 是 设 定 BASIC 程 序 在 内 存 中 
工作 区 域 ， 即 设置 HIMEM : 及 LOMEM : (这 两 个 语句 将 
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在 第 十 一 章 中 介绍 ) 。 一 般 情 况 下 ， 您 如 果 想 在 高 分 辩 率 图 
形 中 使 用 两 页 ， 就 必须 设 定 LOMEM : 为 24576 或 者 设 定 
HIMEM : 为 8191。 这 样 ， 您 就 可 以 将 这 两 页 高 分 辩 率 图 形 
区 域 保护 起 来 。 放 心地 使 用 BASIC 语 言 而 不 会 破坏 高 分 辩 率 
图 形 。 如 果 您 设 定 的 是 HIMEM : 就 不 必 设 LOMEM ， ; 如 
果 您 设 定 的 是 LOMEM : 就 不 必 设 HIMEM : 。 建 议 您 设 定 
LOMEM := 24576。 

二 、 高 分 辨 率 绘图 语句 

1。 高 分 辩 率 图 形 的 颜色 

格式 ，HCOLOR =n 

该 语句 置 高 分 辩 率 图 形 的 颜色 。 在 高 分 辩 图 形 方 式 下 有 
八 种 颜色 ，a 值 所 对 应 的 颜色 编码 如 下 表 9-1 


囊 9-1 


例如 ，HCCLOR = 2 

设置 高 分 辩 率 图 形 颜色 为 蓝 色 。 

注意 : 第 一 ， 对 于 nm 值 是 1，2，5， 6 的 四 种 颜色 对 
于 不 同 的 彩色 监视 器 ， 其 颜色 也 有 所 不 同 。 

第 二 ，m 的 取 值 只 能 在 0 ~ 7 范围 之 内 ， 若 超过 此 范 
_ 围 ， 将 会 出 现 “? ILLEGAL QUANTITY ERROR2” 范 
围 超 出 错误 。HCOLOR 语 句 也 不 起 作用 。 

2。 绘 图 语句 

格 起 1，HPLOT 和 X，Y 
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在 〈X，Y) 坐标 位 置 画 一 个 点 。 
格 起 2，HPLOT TO X，Y 
从 上 一 次 所 画 的 最 后 一 个 点 到 (X，Y ) 坐标 之 间 画 一 


条 线 。 
格式 83: HPLOT XI1，Yl TO X2，Y2 [{TO 
Xi，Yi} ] i=3，4，5. 


从 (X1，Y1) 到 (X2，Y2 ) 之 间 画 一 条 线 ， 再 从 
(X2，Y2) 到 (X3，Y3) 画 一 条 线 ， 依 次 画 下 去 使 得 格 
式 中 所 有 的 〈Xi，Yi) 连 成 线 。 

这 个 格式 所 画 的 线 可 以 延伸 下 去 ， 这 个 命令 仅 受 每 条 命 
令 不 能 超过 239 个 字符 的 限制 。 

格式 4，HPLOT TO X2，Y2 [ {TO Xi， 

Yiy ] i=3，4，5. 必 

格式 4 除了 是 从 上 一 次 所 画 的 最 后 一 个 点 到 〈 和 2,Y2) 
坐标 点 之 间 画 一 条 线 外 ， 其 余 同 格式 3 。 

注意 : 

第 一 ， 格 式 1 到 格式 4 中 ，X 坐 标 值 在 0 ~279 之 间 取 
值 ，Y 坐 标的 取 值 可 在 0 ~ 191 之 间 。 但 是 如 果 在 高 分 辩 图 
形 和 文本 显示 的 混合 方式 下 ， 立 值 从 160 ~191 之 间 的 点 不 会 
在 屏幕 上 画 出 来 。 

第 二 ， 所 画 点 及 线 的 颜色 由 最 近 一 次 人 COLOR 语 句 设 
定 。 

1。 绘 图 举例 

(1 ) 在 屏幕 上 画 一 个 螺旋 形 图 案 ， 并 且 不 断 改变 图 形 
颜色 。 当 屏幕 上 提示 :，， “TYPE ANY KEY TO CHANG 
COLOR ”时 ， 按 任意 键 后 再 按 回 车 键 便 可 改变 图 形 的 颜 
色 ， 直 到 8 种 颜色 都 是 显示 完 后 为 止 。 
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5 RENH C09401 

1 FOR 1=1707 

28 HGR : HCOLOR= 1 

30 HPLOT 0,9 T0 9,106 T0 279,108 T0 279， 
10 T0 10,16 T0 10,98 T0 269,96 T0 269 
,26 T0 29,29 T0 20,86 T0 259,86 T0 
259,36 T0 36,38 T0 39,78 T0 249,76 T0 
249,40 T0 40.40 

40 PRINT : INPUT “TYPE ANY KEY TO CHANGE 
C0LO” ;AS 

58 NEXT ! 

60 END 


这 个 程序 所 画图 形 见 图 9-2 


三 


图 9-2 


2 ) 下 面 这 个 例子 是 在 高 分 辩 率 图 形 方式 下 在 屏幕 上 
画 一 个 五 角 星 ， 并 且 也 可 改变 七 种 不 同 的 颜色 。 并 且说 明 在 
这 个 程序 中 增加 一 些 语句 ， 可 以 画 多 个 五 角 星 或 移动 一 个 五 
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角 星 等 。 
程序 如 下 ， 
5 REN C09402 
1l@6 FOR 1=17037 
28 HGR : HCOLOR=! 
38 HPLOT 8,76 T0 168,76 T0 15,130 T0 50， 
.35 T0 85,138 T0 0,70 


49 NEXT 1 
56 END 


这 个 程序 的 10 语 句 到 40 语 名 是 一 个 循环 ， 循 环 次 数 是 7 
次 ， 每 循环 一 次 将 显示 一 个 不 同 颜色 的 五 角 星 。 其 中 20 语 名 
和 30 语 句 分别 是 设置 高 分 辩 率 图 形 方式 改变 图 形 颜色 和 画 一 
个 五 角 星 。 通 过 这 个 例 本 可 以 吾 出 高 分 辩 率 作 图 语句 使 用 起 
来 是 非常 简单 的 。 

在 这 个 程序 中 再 加 一 个 循环 就 可 以 在 屏幕 上 显示 多 个 五 
角 星 。 这 个 循环 由 25 语 名 到 35 语 句 组 成 。 

程序 如 下 ， 

5 REN C09402-? 

19 FOR 1= 1707 

20 RHOR : HCOLOR= ! 

25 FOR J= 10 T0 160 STEP 28 

39 HPLOT 9+J,70 T0 106+J,76 T0 15+J,136 

T0 50+J,35 T0 85+J,136 T0 0+J,79 

35 NEXT J 


49 NEXT 1! 
56 END 


这 个 程序 的 25 语 句 和 35 语 句 是 一 个 循环 ， 这 个 循环 一 共 
进行 8 次 ， 可 以 画 8 个 五 角 星 。30 语 名 与 例 2 中 稍 有 不 同 ， 
即 入 的 值 都 加 上 J 的 值 。 由 于 了 每 循环 一 次 都 增加 20， 这 样 
每 个 五 角 星 的 位 置 在 水 平方 向 与 上 一 个 五 角 星 的 位 置 相差 20 
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个 点 ， 所 以 屏幕 上 就 会 同时 显示 8 个 交错 出 现 的 五 角 星 。 
将 这 个 程序 中 的 20 语 句 行 号 改 成 27 语 句 ， 将 20 语 句 放 在 
循环 体内 ， 这 时 再 运行 这 个 程序 ， 您 就 会 看 到 屏幕 上 显示 的 
是 一 个 能 移动 位 置 的 五 角 星 。 这 使 我 们 想到 游戏 中 一 些 动作 
的 画面 。 这 也 可 以 说 是 动画 技术 。 
(3 ) 我 们 可 以 利用 高 分 辨 绘图 绘制 任意 图 形 ， 下 面 这 
个 例子 可 以 随机 画 出 多 幅 漂亮 的 图 案 。 程 序 清单 如 下 : 


5 REN C09443 

86 HOME 

106 YTAB 24 

128 NOR 

1486 A = RND (1) 主 279 

166 B =- RND (1) # 159 

188 I= (RND 1)4) + 2 


2866 HTAB 15 

229 FOR X = 9 T0 STEP 1% 

2486 FOR 3 = 8 T0 

268 HCOLOR= 3 * 

306 HPLOT X+S,8 TO0 A,8 TO 279-S-X，159 
328 NEXT S,X 

348 FOR Y = 9 138 STEP 1% 


T0 
360 FOR S = 6 T0 
386 HCOLOR= 3 8 5 
426 HPLOT 279,Y+S TO0 A,B T0 48,.159-Y-S 
448 NEXT S,Y 
468 FOR PAUSE=1 T0 1566: NEXT PAUSE 
486 60T0 120 
.49 END 


由 于 这 个 程序 是 随机 画 一 些 图 案 ， 请 您 运行 这 个 程序 在 
屏幕 上 看 这 些 图 形 吧 。 
(4 ) 这 个 程序 可 以 画 一 个 多 角形 ， 这 个 多 角形 在 一 个 
圆 里 ， 并 且 您 可 以 选择 这 个 圆 的 大 小 和 六 阶 多 边 形 的 N 。 
程序 如 下 ， 
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5 REN C09494 

10 TEXT: HOME 

286 READ VWL,N2,W3;iW4: DATA 11-1,1 

98 JJNPUT “VIEW POINT?(1-5)2?";HT: 中 = HTy 
18: Ylzs140-H: V2=140+ 是 : Y3=95-H: VY4= 
935 + 六 003UB 1000 

4 [INPUT “DEGREE OF BOLYGON?";D 

58 INPUT “STEP OF TRACE2”;P 

69 HOR2: HCOLOR=3; K=3,.141592653/186 

78 FOR A=81T0368 STEP p: AR =A 吝 X 

88 X=C0S(AR) Y=SiIN(AR): WS=" 凡 : 00SUB 
1238 

38  X=C0S(DsAR); Y=SIN(D4AR) : WS="D”: 
600SUB 1230 

106 NEXT A; PRINT CHRS(7): END 

1006 A8=(Y2-yY1)71(W2-H1): 8B8=(Y1#W2-Y24H1、 
/(W2-W1) 

1016 A9=(V4-Y3)/(W4-W3) : B9=(Y39sW4-Y49W3) 
/(N4-W3): RETURN 

12386 X6e=X:; Y6=Y 

1248 X5=A83Xo+B8: Y5=191-(A9yY6+B9) 

1250 IF NS="U”THEN HPLOT X5,Y5， RETURN 

1269 HPLOT T0 X5,Y5: RETURN 

1276 END 


运行 这 个 程序 屏 意 上 首先 给 出 “VIEW POINT 
Ce ) ? ”要 您 输入 您 要 画图 形 的 大 小 。 接 着 给 出 
ssDEGRREE OF BOLYGON? ”要 您 输入 多 角形 的 阶 数 ， 
您 输入 的 数 应 大 于 1 。 最 后 给 出 4STEP OF TRACE? ?7 
要 您 输入 要 画 的 线 的 长 度 。 这 个 参数 与 您 选择 的 多 边 形 阶 数 
有 关 ， 一 个 您 可 选 1 一 全 即 可 。 
选择 不 同 的 阶 数 记 画 的 图 形 如 下 : 
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SS 


SR 
必 


EGR 


(5 ) 这 个 程序 也 是 画 一 个 规则 的 N 角形 ， 它 把 每 个 顶 


角 与 其 它 所 有 的 顶 角 几 线 联 接 起 来 。 当 瑟 足 够 大 时 ， 所 得 到 
的 图 形象 一 块 带 花边 的 桌布 。 


5 

19 
26 
3 


468 
56 
76 
80 
39 
93 
936 


99 


程序 如 下 : 


REK C09465 
TEXT: HOH: K=3.141592653/186 

READ WI,W2,M3,W4: DATA -1,1,-11 

1NPUT -VIEW POINT?(1-5)?" ;HT: H<HTs183 
VY1=148-MH:; Y2=146+L; VY3=95-H; Y4=954If3 
G0SUB 1006 

INPUT -TOTAL NUM OF DIVISIONS";，D 
P=366/D: HGR2: HCOLOR=3 

FOR A=8 TO 368-2sP STEP P， AR=A4K 

X@ = COS (AR): Y8 = SIN (AR) 

FOR J=A+P TO 366-P STEP P; JR=J4L 
X=X6: Y=Y6: WMS="U": 60SUB 1239 
X=C0S(JR) : Y<SIN(JR) : WS="D":， 00SUB 
1236 

NEXT J 


106 NEXT A: PRINT CHRS (7): END 
1066 A8=(VY2-VI)/(W2-WI): B8=(Y1sy2-yY23V1) 


/人 (W2-V1) 


1016 A9=(V4-V3)/(VW4-W3): B9=(Y34W4-V48M3)7 


(WM4-W3): RETURN 


1238 X6=X: Y6=Y- 

1246 X5=A8#X6+B8: Y5=191~(A9sY6+B9) 
1256 IF WS="U ”THEN HPLOT X5,Y5: RETURN 
1268 HPLOT TO0 X5,Y5: RETURN 

]278 END 


运行 这 个 程序 ， 首 先 让 您 选择 所 画图 形 的 大 小 。 接 着 给 


出 “TOTAL NUM OF DIVISIONS” 要 您 给 出 N 角形 


的 N 


D 


下 面 给 出 N = 24 时 的 图 形 。 
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三 、 向 量 绘 图 

在 高 分 辩 率 图 形 方 式 下 还 有 另 一 种 画图 方法 ， 这 种 方法 
是 向 量 作 图 法 。 这 种 方法 的 大 致 原理 是 用 一 组 “描绘 向 量 ”。 将 
整个 图 形 朱 绘 出 来 ，〈 用 字 节 表示 ， 后 面 详细 介绍 ) 再 将 这 
组 向 量 存放 在 内 存 的 某 个 区 城 ， 这 一 组 “描绘 向 量 ” 就 构成 
内 存 中 的 “一 张 ” 图 形 定义 表 。 也 称 向 量 表 。 然 后 使 用 特定 
的 命令 调用 这 张 图 形 定义 表 中 的 “描绘 向 量 ”， 就 可 以 在 屏 
幕 上 显示 图 形 了 。 

1 。 建 立 向 量 表 

向 量 绘图 是 用 向 量 码 来 决定 是 向 上 、 向 下 、 向 左 或 向 右 
移动 一 个 点 或 几 个 点 ， 并 决定 是 否 画 这些 点 。 向 量 码 可 由 二 
位 或 三 位 〈 二 进 制 位 ) 来 表示 。 每 个 向 量 码 的 范围 在 0 ~ 7 
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之 间 。 在 “描绘 向 量 ” 玫 中 ， 每 个 字 节 〈 8 位 ) 被 分 为 三 段 

《每 段 表示 一 个 向 量 ) 。 其 中 最 低 三 位 (0 一 2 位 ) 为 A 
段 ， 3 一 5 位 为 RB 段 :最 高 二 位 (6 ~ 了 位 ) 为 C 段 。A、 
B 两 假 中 三 位 中 的 低 二 位 及 C 段 中 的 两 位 数 称 做 了 位 : A， 
B 两 段 中 的 高 位 称 P 位 。 见 表 9 -2 


陡 9-2 
C 孔 人 
7 咒 5 4 3 2 
NS PP D D 了 了 D D 
对 于 D 和 P 做 如 下 的 规定 ， 
0 0 向 上 移动 
国 0 不 画 点 本 | 0 向 右 移 动 
1 点 | 汪 0 向 下 移动 
11 向 左 移动 


这 些 规定 表示 ， 一 个 段 中 的 P = 1 时 ， 作 图 时 就 先 画 一 
点 ， 然 后 根据 D 位 的 数 移动 一 个 座 标 点 ! 若 P = 0 或 无 P 位 
则 不 画 点 ， 仅 根据 D 位 的 数 移动 坐标 点 。 由 于 C 段 无 P 位 所 
以 ，Q 段 的 作用 仅 能 移动 而 不 能 画 点 。 若 想 使 C 段 不 起 作 
用 ， 即 不 移动 可 将 C 段 设 为 0 0 。 

表 9-3 给 出 绘图 与 对 应 的 向 量 码 

注意 ， 向 量 绘图 还 有 下 面 的 规定 

第 一 ， 当 使 用 绘图 命令 时 ， 由 A 一 C 段 的 顺序 作 图 ， 就 
是 先 将 A 段 取出 来 作 图 ， 然 后 再 用 B 段 作 图 ， 景 后 是 用 C 段 
作 图 。 
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守 9-5 


动 作 | 三 进 制 码 | 十 和 进 制 本 
向 上 移动 而 不 绘图 000 0 
向 右 移 动 而 不 绘图 001 工 
向 下 移动 而 不 绘图 010 | 2 
向 左 移 动 而 不 绘图 011 | 3 
向 上 移动 并 绘 出 图 形 100 | 4 
向 右 移动 并 绘 出 图 形 101 | 5 
向 下 移动 并 绘 出 图 形 110 | 6 
向 左 移动 并 绘 出 图 形 111 7 


第 二 ， 对 “ 摘 绘 向 量 ” 若 C 段 为 0 则 C 段 (描绘 向 量 ) 
不 起 作用 ， 如 时 这 时 了 B 段 也 为 0 则 引 段 也 不 起 作用 ，A 眉 起 
作用 。 

第 三 ， 若 A、B、C 三 段 公 为 0 ， 即 这 个 字 节 的 值 为 0， 
则 表示 图 形 定义 表 的 结尾 。 没 有 A、B、C 女 全 是 0 的 向 量 。 

现在 我 们 来 看 怎样 画 一 个 每 边 3 个 点 正方 形 。 画 这 个 正 
方形 可 以 从 一 个 点 开始 上 移 三 个 点 ， 其 次 再 右 移 三 个 点 ， 再 
下 移 三 个 点 ， 景 后 再 左 移 三 个 点 ， 这 样 一 共 需 要 12 个 绘图 向 
量 组 成 一 个 向 量 表 。 

这 12 个 绘图 向 量 分 别 是 ， 

个 100 加 100 国 100 四 101 @101 101 
1 人 ll @l1l0 四 11 曲 111 四 1 

画 这 个 图 形 由 于 每 个 点 都 要 画 ， 所 以 所 有 的 C 段 就 应 该 
全 部 是 0 。 这 样 ， 画 这 个 图 形 需要 有 ?7 个 字 节 来 定义 ， 其 中 
第 7 个 字 节 是 0 0 ， 表 示 这 个 向 量 表 的 结尾 。 

这 7 个 字 节 分 别 为 ， 见 表 9-4 

用 这 个 向 量 表 绘制 的 图 形 如 图 9-3 
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| 
0 24 | oo0 100 100 
| | 
1 2C | 00 101 | 100 
2 2D | 00 101 | 101 
3 | 36 ， 00 110 110 
4 3 忆 | 00 111 。 ， 110 
5 3F 00 111 111 
6 00 00 000 000 
本 一 色 一 
y 
图 9-3 


我 们 如 果 想 画 多 个 图 形 ， 林 似 用 定义 多 个 向 量 表 《【 最 多 
255 个 ) 的 方法 来 实现 。 在 内 存 中 可 以 存放 多 个 向 量 表 ， 仅 
要 求 每 个 向 量 表 的 最 后 一 个 字 记 是 0 ， 表 示 这 个 向 量 表 结 柬 
即 可 。 

2 。 建 立 向 量 表 的 索引 表 

向 量 表 建 好 之 后 ， 您 还 需要 建立 向 量 表 的 索引 表 。 索 引 
表 中 包含 内 存 中 向 量 表 的 总 数 及 每 个 向 量 表 在 内 存 中 相对 于 
索引 表 的 首 地 址 的 位 置 。 每 个 向 量 表 都 要 从 个 位 置 开 始 存放 
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“描绘 向 量 ” 的 字 节 内 容 。 
表 9-5 是 向 量 表 的 结构 。 通 过 这 个 图 我 们 可 以 看 出 向 
量 表 与 索引 表 的 关系 。 
衷 9-5 


内 存 中 向 量 表 总 数 n 
无 用 
2 第 一 个 向 量 表 首 址 〈 低 位 ) 
3 第 一 个 向 量 表 首 址 〈 高 位 ) 
4 第 二 个 向 量 表 首 址 〈 低 位 ) 
5 


普 


说 
寺 
灿 第 二 个 向 量 表 首 址 《高 位 ) 
2i 第 i 个 向 县 表 首 址 《低位 ) 
| 2i 二 1 第 i 个 向 最 表 首 址 〈 高 位 ) 
本 第 1 个 向 量 表 的 描绘 向 量 
00 
明 


第 i 个 向 量 表 的 描绘 向 量 


通过 表 9-5 可 以 看 出 索 引 表 的 第 一 个 字 节 中 存放 着 内 
存 中 向 量 表 的 总 数 ， 第 二 个 字 节 无 用 ， 可 以 是 任何 小 于 
255 的 整数 。 索 引 表 的 其 它 字 节 的 值 是 每 个 向 量 表 的 首 地 
址 ， 这 个 地 址 值 是 相 对 于 索引 表 的 第 一 个 字 节 〈 0 字 节 ) 
的 些 离 。 每 一 个 地 址 都 用 两 个 字 节 表示 ， 并 且 地 址 的 低位 字 
节 在 前 ， 高 位 字 节 在 后 。 

下 面 说 明 怎样 建立 向 量 表 及 索引 表 。 
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例 ， 用 前 面 例子 绘制 正方 形 的 向 量 来 建立 向 量 玫 及 索引 
表 。 由 于 只 有 一 个 向 量 表 ， 所 以 索引 表 的 第 一 个 字 节 〈 字 节 
0 ) 的 值 为 1， 第 二 字 节 ( 字 节 1) 可 为 0， 第 三 个 字 节 
( 字 节 2 ) 应 为 4 第 四 个 字 节 ( 字 节 3 ) 应 为 0 。 而 绘图 
向 量 则 应 从 第 五 个 字 节 〈 字 节 4 ) 开始 存放 。 

字 节 值 


己 


四 名 习 了 中 性 


10 


又 例 : 


01 < 向 量 表 中 绘图 向 量 数 
00 
”一 第 二 全 绘图 身 基 表 虐 0 字 节 ( 素 引 表 首 址 ? 

00 上 的 距离 〈 字 节 数 ) 

24 

2C 

2D 

36 

3E 

3F 


< 绘图 向 量 


00 一 第 一 个 绘图 向 量 结束 
有 三 个 向 量 表 ， 第 一 个 向 量 表 有 5 个 字 节 ， 第 二 


个 向 量 表 有 3 个 字 节 ; 第 三 个 向 量 有 6 个 字 池 〈 均 包括 向 量 
表 的 结束 字 节 ) 

下 面 建 立 向 量 表 及 索引 表 。 

字 闻 值 


0 
工 
2 
3 
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03<- 向 量 表 中 有 三 个 绘图 向 量 表 
00 
08 


00 】 一 第 一 个 图 绘 向 量 表 距 0 字 节 的 距离 


】 一 第 二 个 向 量 绘图 表 的 距离 


16 


10 】 一 第 三 个 向 量 绘图 表 的 距离 


地址 13 是 第 一 个 
人 


个 
服 游 泪 
怕 琅 | 

鞋 
涝 了 开辟 
”了 到 画 
加 号 可 
0% 革 各 
+ 洗 没 
三光 
1 wa 


其 首 地 址 16 是 第 二 个 
址 加 上 第 二 个 向 量 表 的 


， 


洒 
+ 过 可 
= 


建立 好 索引 表 和 向 量 表 ，《〈 以 后 我 们 统 叫 向 量 表 ) 现在 


是 否 可 以 使 用 向 量 绘图 语句 来 画图 呢 ? 回答 是 不 一 定 的 ， 因 


您 要 画图 ， 就 要 将 绘图 向 量 装 入 内 存 的 某 些 单元 中 。 中 


华 机 BASIC 要 求 把 向 量 表 首 地 址 保存 在 向 量 表 的 首 地 址 E8 
和 P9。 画 图 时 ， 首 先 从 了 8 和 了 E9 中 取出 向 量 表 的 首 地 址 ， 然 
后 从 这 个 地 址 开始 取 您 要 绘制 图 形 的 绘图 向 量 来 画图 。 


所 以 ， 当 您 的 向 量 表 定 义 好 以 后 ， 需 要 将 这 个 向 量 表 装 


入 内存 中 您 指定 的 内 存单 元 中 ， 还 需要 将 这 些 内 存单 元 的 首 
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地 址 放 入 E8 和 了 9 单元 中 〈 每 装 入 一 个 向 量 表 ， 只 需 装 和 一 
次 普 地 址 )。 

3 。 输 入 网 量 表 

在 您 能 够 将 图 形 绘制 出 来 之 前 ， 必 须 将 向 量 表 输 入 到 计 
算 机 内 存 中 , 怎样 做 这 件 事 呢 ? 首先 , 必须 决定 向 量 表 应 该 存 
在 内 存 的 那 一 个 区 域 中 ， 为 了 保护 向 量 表 不 被 擦 除 ， 向 量 表 
在 内 存 中 的 位 置 必 须 小 于 BASIC 工 作 区 的 上 限 ， 而且 不 在 
使 用 HGR 或 HGR2 时 就 会 被 清 掉 的 内 存 区 域 里 。 解 决 这 个 
问题 的 方法 就 是 使 用 HIMEM， 重 新 设 定 BASIC 程 序 工作 区 
的 上 限 地 址 ， 使 其 在 DOS 的 起 始 位 置 之 下 ， 或 者 在 您 要 使 
用 的 高 分 辩 率 页 的 位 置 之 前 。 地 址 115 及 116 ($73 及 $74 ) 
的 内 存单 元 中 保存 着 为 BASIC 设 定 的 HIMEM 的 值 。 您 可 
用 下 面 的 语句 计算 允许 放 入 向 量 表 的 HIMEM ;的 值 

PRINT PEEK (116) 关 256+PEFK (115) -XXX 

这 个 语句 所 显示 的 值 就 是 您 为 输入 向 量 表 而 应 该 设 定 的 
HIMEM， 值 ， 其 中 X 是 向 量 表 〈 包 括 索 引 表 ) 的 长 度 〈 字 
节 的 个 数 ) 。 这 么 做 就 能 保护 向 量 表 而 不 会 被 BASIC 破 坏 。 

怎样 输入 向 量 表 呢 ? 您 可 以 在 BASIC 中 使 用 POKE 语 条 
或 者 在 监控 程序 内 输入 向 量 表 。 下 向 我 们 通过 例子 来 说 明 。 
我 们 还 用 前 面 画 正方 形 的 例子 ， 在 这 个 例子 中 ， 我 们 选择 
1DFC (十 进 制 的 7676 ) 来 作为 向 量 表 的 首 地 址 。 

(1 ) 在 BASIC 中 输入 向 量 表 

在 BASIC 中 将 向 量 表 装 入 内 存 可 用 POKE 语 句 ，POKE 
语 名 要求 装 入 的 地 址 和 要 装 入 内 存 的 数值 都 是 十 进 制 数 。 

下 面 是 输入 画 正方 形 的 向 量 表 的 程序 。 
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S REN C09467 

16 DATA 1,6,4,0 

29 DATA 36,44,45,54,62,63,06 
39 FOR 1=7676 T0 7686 

48@ READ X 

586 POKE 【1,X 

69 NEXT 

78 END 


执行 这 个 程序 ， 将 这 个 向 量 表 装 入 内存 中 以 1DFC 开 始 的 内 
存 区域 中 。 不 过 ， 请 您 不 要 忘记 ， 您 还 应 该 将 向 量 表 的 首 地 
址 (在 这 里 是 7676 ) 存 人 E8 (十 进 制 232) 和 了 9 (十 
进 制 233) 单元 中 。 高 位 字 节 放 和 马 9 单元 中 ， 低 位 字 节 放 
入 了 8 单元 中 。 用 POKE 语句 可 将 首 地 址 装 入 也 8 和 了 9 单 
元 。 

例 : 

] POKE 232，252 

] POKE 233，39 

上 面 仅 仅 将 向 量 表 及 首 地 址 装 入 内 存 。 

现在 ， 您 就 可 以 使 用 向 量 绘图 语句 来 画图 了 。 怎样 画 
图 ， 我 们 在 后 面 专门 介绍 。 

(2 ) 在 监控 程序 内 输入 向 量 表 

在 监控 程序 内 输入 向 量 表 ， 应 在 监控 系统 下 〈 提 示 符 是 
“ 关 ”) 。 可 使 用 

] CALL -151 

进入 监控 程序 。 

进入 监控 程序 后 ， 输 入 向 量 表 开始 的 十 六 进 制 的 内 存 地 
址 ， 紧 跟着 冒号 ， 然 后 输入 向 量 表 〈 包 括 索 引 表 ) 的 字 节 ， 
这 些 字 节 都 应 是 十 六 进 制 数 。 
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例 : ] CALEL </ 
x< 1DFC:, 0%1 00 04 0 24 2C 2D 36 
3E .3F 00 .) 

尖 

这 样 ， 您 就 将 画 正方 形 的 向 量 表 输 入 内 存 了 。 不 过 ， 请 
您 不 要 忘记 还 需要 将 向 量 表 的 首 地址 放 入 蔚 8 和 了 9 单元 中 

xE8:RFC 1D./ 

当 您 将 向 量 表 和 疝 量 表 的 首 地 址 装 入 内 存 后 ， 可 以 退出 
监控 系统 返回 BASIC 系 统 。 用 绘图 语句 来 绘图 。 

上 面 介绍 的 两 种 装 入 向 量 表 的 方法 都 是 将 向 量 表 装 入 
指定 的 内 存 区 中 去 。 并 且 将 向 量 表 的 首 地址 保存 在 232〈 十 
六 进 制 的 也 8 ) 和 233 (十 六 进 制 的 了 9 ) 单元 中 。 其 中 232 
单元 存放 首 地 址 的 低 两 位 :233 单 元 存放 首 地 址 的 高 两 位 。 

需要 注意 的 是 : 无 论 是 地 址 和 疝 量 表 的 字 节 值 ， 在 BA 
SIC 中 所 用 的 都 是 十 进 制 的 ， 在 监控 程序 中 所 用 的 都 是 十 六 
进 制 的 。 

(3 ) 从 磁带 上 或 磁盘 上 将 向 量 表 装 入 内 存 

如 果 您 的 向 量 表 保 存在 磁带 上 或 磁盘 上 ， 中 华 机 BASIC 
可 以 将 向 量 表 从 磁盘 或 磁带 上 装 入 内 存 。 

@ 从 磁带 上 将 向 量 表 调 入 内存 

首先 ， 将 磁带 转 到 向 量 表 在 磁带 上 的 起 始 处 ， 再 打 入 ， 

] SHLOAD 

后 压 下 磁带 机 上 的 PLAY 键 。 当 中 华 机 发 出 两 声 “ 哗 ? 
的 声音 《〈 第 一 声 表示 已 经 开始 装 入 向 量 表 。 第 二 声 表示 向 量 
表 已 经 装 入 完 华 ) 后 向 量 表 已 经 装 和 内存 了 。SHLOA D 命 
令 从 磁带 上 装 入 向 量 表 。 先 把 向 量 表 装 到 HIMEM :的 下 
面 ， 然 后 再 把 HIMEM， 设 在 向 量 才 的 下 面 。 这 样 ， 向 量 表 


230 


就 不 会 被 破坏 了 。 

当 在 装 和 向量 表 过 程 中 ， 如 果 有 错误 发 生 ， 屏 幕 上 将 显 
示 错 误 储 息 。 这 时 ， 您 可 再 执行 一 次 装 入 向 量 表 操作 ， 如 果 
还 发 生 错误 ， 很 有 可 能 是 您 的 磁带 机 的 音量 调 的 不 正确 〈 太 
高 或 太 低 了 ) 。 这 时 您 应 调 正 磁带 机 的 音量 。 

@ 从 磁盘 上 将 向 量 表 调 入 内 存 

在 您 将 向 量 表 调 人 内 存 之 前 ， 您 首先 应 设 定 HIMEM 
的 值 。 然 后 用 BLOAD 命 令 将 向 量 表 调 和 人 内存。 

例 : 将 文件 名 为 HZEFX 的 向 量 表 文 件 装 入 内 存 。 

] BLOAD HZEFX 

将 向 量 表 装 到 原先 您 在 人 磁盘 时 向 量 表 当 时 在 内 存 的 位 
置 ， 如 果 您 想 将 向 量 表 装 到 内 存 的 另 一 个 新 的 位 置 ， 假 设 装 
入 到 $3000〈 十 六 进 制 的 3000):， 那 么 您 就 输入 : 

] BLOAD HZFX，A$3000.2/ 
。 BLOAD 语 名 中 使 用 的 地 址 值 必 须 是 十 六 进 制 的 ， 命 令 
中 的 A$3000 表 示 是 十 六 进 制 数 。 

BLOAD 语 名 不 会 将 向 量 表 的 首 地 址 放 入 内 在 232 及 233 
($E8 及 $E 9 ) 单元 中 ， 所 以 您 还 应 该 使 用 POKE 语 句 将 
向 量 表 首 地 址 放 入 到 232 及 233 的 内 存单 元 中 。 

4 。 将 向 量 表 保 存在 磁带 或 磁盘 内 

您 可 能 花费 了 很 多 时 间 设 计 了 一 个 向 量 表 。 放 在 内 存 中 ， 
一 但 关机 就 会 失掉 它 。 如 果 您 想 多 次 使 用 并 长 期 保存 的 话 ， 
应 该 将 这 个 向 量 表 保 存在 磁带 中 或 者 是 磁盘 中 。 将 来 使 用 时 
再 调 入 内 存 。 

(1 ) 将 向 量 表 存 到 磁带 中 

在 您 将 向 量 表 存 在 磁带 中 之 前 ， 您 必须 算出 向 量 表 的 长 
度 ， 并 用 十 六 进 制 表示 。 然 后 将 这 个 长 度 值 输入 由 0 开始 的 
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起 始 地 址 中 。 

例如 前 面 画 正方 形 的 向 量 表 记 占用 的 字 节 数 是 7 个 。 
我 们 在 监控 方式 下 输入 这 个 长 度 到 0 和 1 这 两 个 内 存单 元 
中 。 

尖 00:07 00. 

象 往常 的 情况 一 样 ， 低 位 字 节 放 在 前 面 (0 单元 ) ， 高 
位 字 节 放 在 后 面 (1 单元 ) 。 

然后 将 磁带 转 到 放 向 量 表 的 起 始 位 置 ， 再 按 下 RECO- 
RD 键 ， 您 就 可 以 使 用 监控 程序 将 向 量 表 及 它 的 长 度 保存 在 
.磁带 内 了 。 这 个 工作 可 用 下 面 方法 来 完成 

#0.1W 1DFC.1E06W。/ 

我 们 用 了 两 个 写 命令 ， 第 一 个 写 命令 将 向 量 表 的 长 度 输 
和 到 磁带 内 ， 第 二 个 写 命令 将 向 量 表 存 人 磁带 内 。 当 这 个 工 
作 进 行 时 ， 中 华 机 会 发 出 两 声 “ 哗 ”的 声音 ， 第 一 声 表示 开 
始 存 了 ， 第 二 声 表示 向 量 表 已 经 被 存在 磁带 内 了 。 

〈2 ) 将 向 量 表 存 到 磁盘 中 

您 使 用 BSAVE 命 令 可 以 将 向 量 表 存 到 磁盘 中 。 在 使 用 
这 个 命令 之 前 ， 您 必须 知道 输入 的 向 量 表 的 起 始 地 址 及 它 的 
长 度 。“〔〈 均 用 十 六 进 制 数 表 示 ) 。 并 且 BSAYVE 要 求 把 向 量 
表 存 到 磁盘 的 一 个 文件 中 ， 所 以 您 应 该 给 这 个 文件 起 一 个 名 
字 。 这 个 文件 名 应 是 磁盘 上 原来 没有 的 文件 名 ， 否 则 将 会 对 
磁盘 上 的 同名 文件 删除 掉 。 下 面 ， 我 们 将 前 面 画 正方 形 的 向 
量 表 存 到 磁盘 上 HZFX 文 件 中 。 向 量 表 存在 从 1DFC 开 始 的 
内 存 区 域 中 ， 并 且 向 量 表 的 长 度 是 7 个 字 节 长 。 

] BSAVE HZFX，AS$6000，L7。 

这 个 命令 在 磁盘 上 建立 了 一 个 叫 联 ZEFX 的 二 进 制 文件 。 
这 个 文件 保存 着 向 量 表 可 供 您 以 后 使 用 。 
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5 。 向 量 绘图 命令 
图 形 向 量 表 定 义 好 并 装 入 内 存 后 ， 您 就 可 以 利用 绘图 命 
令 画 出 各 种 图 形 〈 包 括 放 大 或 缩小 的 图 形 ， 旋 转 后 的 图 形 


等 ) 。 
绘图 命令 一 共有 四 个 。 
DRAW 将 图 形 在 屏幕 上 显示 出 来 。 
XDRAW 将 已 显示 的 图 形 从 屏幕 上 清除 掉 。 
ROT 将 图 形 旋 转车 干 角度 。 
SCALE 放大 或 缩小 图 形 。 


这 些 绘图 命令 使 用 您 刚刚 选择 的 高 分 辩 率 的 页 (HGR 
或 HGRY) 及 颜色 (HCOLOR) 。 
(1) SCALE 命令 
格式 ;SCALE = n 
该 命令 的 作用 是 决定 用 DRAW 或 XDRAW 命 令 作 图 时 
的 比例 大 小 。 
n= 0 一 255。 当 n= 工时 ， 一 个 向 量 段 只 能 移动 一 个 坐 
标点 ! n= 2 ~255 时 ， 此 移动 量 放 大 了 几 倍 ; 当 n = 0 时， 
相当 于 n = 256， 图 形 将 放大 256 倍 
当 第 一 次 使 用 DRAW 之 前 ， 您 必须 先 使 用 SCALE 命令 
例 : 不 放大 图 形 ， 设 SCALE = 1 
放大 4 倍 ， 设 SCALE = 4 
(2) DRAW 命令 
格式 1:， DRAW nm AT 共 ，Y 
格式 2，DRAW n 
该 命令 是 在 屏幕 上 显示 第 几 个 定义 的 向 量 表 中 的 图 形 。 
格式 1 是 在 屏幕 上 以 水，Y 为 起 点 进行 绘图 。 格 式 2 是 以 当 
前 屏幕 坐标 位 置 为 起 点 进行 绘图 。 当 前 坐标 位 置 是 您 上 次 使 
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用 DRA、HPLOT 或 XDRA 人 到 命令 时 ， 所 画图 形 的 最 后 
一 个 点 的 位 置 坐标 ， 车 前 面 没有 使 用 这 些 命令 ， 则 认为 当前 
坐标 位 置 是 (0，0) 。 

格式 中 的 n 是 指 节 n 个 定义 的 图 形 ，na 可 是 0 ~255。 您 
要 是 想 绘制 1 号 图 ，n 就 为 1; 如 果 您 想 要 绘制 5 号 图 ， 那 
么 n 就 是 5。 

例 ， DRAW 1 AT 140，96 

将 向 量 表 内 的 第 一 个 图 形 绘 在 屏幕 上 第 141，97 坐 标点 
开始 的 位 置 上 。 

例 ， DRAW 5 

将 向 量 表 内 的 第 五 个 图 形 在 最 近 使 用 HPLOT 或 DRA 人 
语句 设 定 的 位 置 开 始 绘图 。 

注意 : 第 一 ， 上 面 的 例子 是 假设 向 量 表 已 经 存在 内 存 中 
了 。 在 执行 DRA 人 双语 名 之 前 ， 向 量 表 必 须 已 经 调 入 内 存 ， 
而 且 内 存 中 232 及 233 ($E5 及 $E9) 中 存 着 向 量 表 的 起 始 地 
址 。 

第 二 , 命令 格式 中 的 n 取 值 范 围 是 0 ~ 255,X 的 取 值 范围 
为 0 一 279,，Y 的 取 值 范围 为 0 ~ 191。 如 果 超 出 这 些 范 围 ， 
将 会 给 出 “? ILLEGAL QUANTITY ERROR” 的 错 
误 信 息 ， 如 果 您 指定 要 绘图 的 图 号 超出 向 量 表 内 的 图 形 数 ， 
将 不 绘图 或 者 是 屏幕 上 显示 一 些 杂 乱 的 线条 。 

《8) XDRA 术 命令 

格式 ，XDRAW mn [AT X，Y] 

这 个 命令 的 使 用 方法 同 DRA 人 机 一 样 ， 也 可 以 绘图 , 所 不 
同 的 是 绘制 图 形 的 颜色 是 原来 图 形 在 相同 坐标 位 置 的 补 色 。 
下 面 这 na 对 颜色 是 互补 的 : 

黑 与 和 白 
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蓝 与 绿 
红 与 . 黄 

由 于 XDRA 允 语句 的 上 述 绘 图 功能 ，XDRA 允 语句 常 
用 来 清除 用 DRA 丈 命令 在 屏幕 上 绘制 的 图 形 。 例 如 ， 用 DR- 
A 机 画 一 个 图 形 ， 如 果 座 标 ， 旋 转向 量 及 大 小 都 不 改变 那么 
XDRA 人 多 就 把 这 个 图 形 清 除 。 但 其 它 图 形 仍然 存在 不 会 被 
消除 。 

例如 : ] DRAW 1 AT 45，56。/ 

1] XDRAW 1 AT 45，56./ 

当 执 行 DRAW 语 名 时， 就 在 屏幕 与 45，56 处 绘制 一 号 
图 形 。 当 执行 到 XDRA 人 双语 名 时， 您 就 会 看 到 这 个 图形 被 
抹 掉 了 。 这 是 因为 XDRA 到 所 绘 的 图 形 与 DRA 允 的 一 样 ， 
在 屏幕 上 的 位 置 也 一 样 ， 并 且 以 DRA 人 到 语句 绘 的 图 形 的 颜 
色 的 补 色 绘图 。 例 如 ， 如 果 原 来 颜色 是 白色 ,现在 XDRAW 
就 用 黑色 绘图 ， 这 样 就 将 原来 图 形 抹 掉 了 。 

请 注意 下 面 的 这 个 例子 就 不 一 定 将 图 形 清除 掉 。 

例 ， ] DRAW 1./ 

] XDRAW 1 

这 两 个 命令 表面 上 看 起 来 图 形 号 ， 坐 标 位 置 都 一 样 ， 但 
实际 上 当 DRA 人 绘图 之 后 ， 当 前 的 坐标 位 置 不 一 定 是 DR 
A 丈 绘图 时 的 起 始 坐 标 位 置 ， 大 多 数 情 况 坐 标 位 置 是 变化 
的 。 所 以 当 执 行 到 XDRA 克 语句 时 ， 就 以 原 图 形 的 补 色 绘 
图 ， 由 于 在 不 同 的 位 置 绘图 ， 所 以 屏幕 上 将 有 两 个 不 同 颜色 
的 图 形 。 

(4 ) ROT 命 令 

格式 ，ROT = m 

这 个 语句 可 以 设置 图 形 的 旋转 角度 。m 的 取 值 范围 是 
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0 ~~255。 但 大 于 64 时 按 64 取 模 ，mm 值 的 含意 与 SCALE 命 令 
中 的 n 值 有 关 。m 与 n 的 关系 表示 如 下 :， 
m = 0 顺 时 针 旋转 0 度 


1 | m = 16 顺 时 针 旋 转 90 度 
m = 32 顺 时 针 旋 转 180 度 
nm = m = 48 顺 时 针 旋 转 270 度 
2 有 8 种 旋转 度 , mm 增加 8 就 顺 时 针 旋 转 


45 度 
之 5 有 64 种 旋转 度 , mm 增加 8 就 顺 时 针 旋 转 45 度 
(5) 向 量 绘图 举例 
在 下 面 的 例子 里 ， 我 们 把 装 入 向 量 表 ， 置 向 量 表 的 首 地 
址 和 绘图 都 放 在 一 个 程序 中 ， 这 样 使 用 起 来 比较 方便 。 
GD 利用 前 面 CO9407 的 例子 画 一 串 正方 形 。 一 共 八 个 正 
方形 ， 正 方形 逐渐 增 大 ， 并 且 一 个 套 着 一 个 。 程 序 如 下 : 


5 REMH C09467-1 

16 DATA 1,0,4,0 

26 DATA 36,44,45,54,62,63,06 
36 FOR 1=7676 T0 7686 

46 READ X 

56 POKE 1 

8 NEXT 

938 POKE 232,252: POKE 233,29 
35 HOME: HOR 

356 RHCOLOR= 3: ROT= 6 

86 FOR 1=1T08 

986 SCALE= 1 儿 6 

168 DRAV 1 AT 156-138.5,85+138,5 
1186 NEXT | 

128 END 


这 个 程序 11 语 句 中 的 数据 是 向 量 表 的 索引 表 ， 20 语 名 
中 的 数据 是 向 量 表 。30~60 语 句 是 将 整个 向 量 表 装 到 内 存 中 
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7676 到 7686 单 元 中 。70 语 句 是 将 向 量 表 的 首 地 址 装 到 232， 

233 单 元 中 。 注 意 : 在 计算 首 地 址 时 ， 低 位 字 节 在 前 〈 在 232 单 
元 中 ) ， 高 位 字 节 在 后 〈 在 233 单 元 中 ) 。 例 如 ， 这 个 程序 
都 将 向 量 表 装 到 自 7676 单 元 开始 的 内 存 中 ， 它 的 233 单 元 是 
29， 相 当 于 29 x 256 为 7424， 再 加 上 232 单 元 中 的 252， 这 样 ， 
向 量 表 首 地 址 为 7676。75 语 名 ~ 110 语 名 是 在 高 分 辨 绘图 方式 
下 ， 绘 制 八 个 大 小 不 同 ， 套 在 一 起 的 正方 形 。 见 图 9 -4 


图 9-4 


@ 这 个 程序 同 前 面 的 C09407- 工 基 本 相同 ， 只 不 过 增加 
了 一 个 95 语 句 ， 这 样 所 画 的 正方 形 每 次 都 要 旋转 45”(ROT 
每 次 都 增加 8 ) 。 另 外 ， 图 形 比 倒 和 循环 次 数 略 为 不 同 。 程 
序 如 下 ; 
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35 


REN C09467-.2 
DATA 1,6,4,8 

DATA 36,44,45,54,62,63,68 
FOR 1=7676 T0 7686 

READ X 

POKE 1,X 

NEXT 了 

POKE 232,252:; POKE 233,29 
HOME : HGR 

HCOLOR= 3 

FOR 1 = ! T0 9 

SCALE=- 1 se 3 

ROT=- 1 s 8 


166 .DRAW 1 AT 149,95 
11 今 NEXT 
128 END 


这 个 程序 所 画图 形 见 图 9 -5 
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图 下 面 这 个 程序 画 的 图 形象 两 洒 菊 花 。 由 于 向 量 表 中 
的 数据 是 随意 的 ， 所 画 的 图 形 不 太 规则 。 程 序 如 下 : 


5 REN C09408-1 

29 DATA 5,0,12,9,21,6,30,3,39,0,46.8 
39 DATA 45,40,32,5,168,174,21,37,9 
48 DATA 45,406,32,5,46,45,21,37,8 

50 DATA 45,5,40,5,40,45,21,37,8 
60 DATA 45,45,45,45,45,37,6 
79 DATA 9,5,32,5,40,1638,21,21,173,37,9 
88 FOR lj=768 TO 824 

96 READ X: POKE j,X 

166 NEXT 1 

110 POKE 232,8: POKE 233,3 

128 HOME: HOR: RCOLOR=3: SCALE=1: ROT=9 
136 FOR X=19 TO0 169 STEP 4. 

140 FOR fsl T0 5 

145 SCALE=sT+2 

146 ROTa X% 

150 DRA 凡 ? AT X+76,96 

166 FOR J+l1 TO0 260: NEXTY 3 

178 NEXT 上 

175 NEXT X 

180 END 


运行 这 个 程序 ， 您 可 以 在 屏幕 上 看 到 象 两 条 花 一 样 的 
图 。 您 若 想 更 逼真 一 些 ， 您 可 以 试 着 修改 向 量 表 中 的 数据 。 

〈6 ) 向 量 绘图 方法 步骤 

通过 上 面 的 介绍 ， 我 们 知道 向 量 绘图 可 将 图 形 旋 转 或 放 
大 或 缩小 。 这 些 功能 在 高 分 辩 率 图 形 方式 下 用 HPLOT 语 名 
处 理 起 来 是 比较 困难 和 复杂 的 。 〈 主 要 是 计算 大 小 ， 旋 转 工 
作 量 很 大 ) 但 是 ， 向 量 绘图 的 向 量 只 能 往 上 ， 下 ， 左 ， 碳 移 
动 ， 绘 制 水 平 直线 和 垂直 线 是 很 方便 的 ， 但 有 些 图 形 ， 例 如 
一 个 三 角形 ， 至 少 应 该 包括 一 条 斜 线 ， 绘 制 这 样 的 图 形 就 要 
费 些 事 了 。 另 外 ， 还 有 一 些 图 形 ， 例 如 圆 形 ， 就 不 能 画 的 很 
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相似 。 因 此 在 某 些 情 况 下 ， 使 用 向 量 绘图 可 能 还 不 如 HPL 
OTI 方 便 。 但 在 游戏 程序 中 使 用 高 分 辩 图 向 量 绘图 是 特 别 有 
用 的 。 

怎样 来 绘制 向 量 图 呢 ? 

GD 首先 应 将 您 要 绘制 的 图 形 转换 成 绘图 向 量 ， 并 用 字 
节 来 表示 ，( 每 个 字 节 可 有 三 个 绘图 向 量 ) 将 这 些 绘 图 向 量 
组 成 绘图 向 量 表 。 

@) 建立 向 量 表 的 索引 表 。 索 引 表 用 来 描述 向 量 表 中 有 
多 少 个 图 形 ， 每 一 个 图 形 在 向 量 表 中 的 位 置 。 

图 将 向 量 表 〈 包 括 向 量 表 的 索引 表 ) 装 入 内 存 。 先 设 
定 HIMEM: 的 值 ， 然 后 将 向 量 表 装 入 内 存 。 并 将 向 量 表 在 
内 存 中 的 首 地 址 放 和 人 瑟 8 和 了 9 的 内 存单 元 中 。. 

人 进入 高 分 辩 率 绘图 方式 (HGR 或 HGRZ) 设置 图 
形 的 颜色 ， 图 形 的 大 小 ， 旋 转角 度 等 。 

@@ 用 向 量 绘图 语句 (DRAW 或 XDRAW) 在 指定 坐 
标 位 置 上 绘制 图 形 。 

@@ 确认 绘制 的 图 形 正确 无 误 后 ， 您 可 将 向 量 表 保 存在 
磁带 中 或 磁盘 中 ， 以 备 以 后 多 次 使 用 来 绘制 这 个 图 形 。 

以 上 仅 是 一 般 步 最 ， 供 您 参考 。 您 可 根据 具体 清 况 ， 来 
决定 具体 的 操作 步 又 。 

《7 ) 介绍 一 个 实用 程序 

在 您 设计 一 个 图 形 的 向 量 表 时 ， 您 会 感觉 到 即使 一 个 很 
简单 的 图 形 也 必须 经 过 许多 步 又 才能 完成 ， 而 且 既 使 通过 复 
杂 的 计算 转换 成 字 节 值 表 示 ， 也 很 容易 出 错 。 下 面 介 绍 一 个 
程序 ， 它 会 自动 为 您 设计 的 图 形 定义 向 量 表 ， 并 用 十 六 进 制 
数 表示 这 些 向 量 ， 而 不 会 出 错 。 这 个 程序 能 使 您 设计 图 形 的 
工作 变 得 非常 简单 ， 并 可 节省 许多 时 间 。 
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106 
110 
128 
138 
140 
150 
166 
170 
186 
190 
206 
216 
228 
230 
240 
256 
260 
270 
280 
290 
300 
316 
326 
336 
340 
356 
360 
379 


REM C09469 
ni Si(199),Y1(160) 

1 = 

PRINT “CREATE SHAPE VECTORS" 

PRINT 

Y = 1: 00SUB 276 

IF WMSC>"E”THEN S1(1)=M: 1=1+1: 60T0 56 
PRINT 

INPUT “VERTOR TO CHANGE(@=END) :";Vy 

IF V>9 THEN V=y-1: 60SUB 278; SI(Y)=i; 
60T0 88 

FORY = 6T01 

IF B=2 AND SI1(V)>9 AND S1(V)《4 THEN 146 
IF BK2 AND (SI1(V)>8 OR SI(Y)24) THEN 146 
B=6: Q=Q+1 

VI(Q)=yV1(QJ)+S1(Y)#(8AB) 

B=B+1 

OF B>2 THEN B-0: Q=Q+yl 

NEXT V 

PRINT “BATE","VECTPR" 

FOR V=9 TO Q 

H% =V1I(CV)716 

LX =Y1(Y)-HXs16 

IF HX>16 THEN HX=HX+7 

IF L%>19 THEN L%X=LX+7 

PRINT VY，CHRS(CHX+176) CHRSCLX+176) 
NEXT 了 

END 

PRINT “VECTOR"3Y4+19"2" 

INPUT “MOVE，U/D/L/VR2" ;HS 

M = 0 

IF MS="R”THEN M = 1 

IF MS="D”THEN M = 2 

IF MS="L”THEN M = 3 

IF MS="E”THEN RETURN 

INPUT “PLOT (Y=YES,N=N0)9" ;PS 

IF Ps="Y”THEN N=M+4: RETURN 

IF PS+“N”THEN RETURN 

GOT0 34 
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]RUN 
CREATE. SHAPE YECTORS 


YECTOR1 : 
MOVE:U/DZL/VR?D 

PLOT (Y=YES,N=NO)13N 
VECTOR2 : 

MOYE :U/ZD/VL/R2D 

PLOT (y=YES,NsNO)98 
VECTOR3， 
NOVE:U/D/LAR93L 

PLOT (YaYES,NsN0)93Y 
VECTOR48 
NOYE:U/D/AL7R?L 

PLOT (Y=YFS,N=NO)2Y 
VECT0R5: 
MOVE:U/D/VL7VR2?U 

PLOT (Y=YES,N=NO)3N 
YECTOR6 : 
MOVYE:U/DVL7ZR2U 

pPLOT (Y=YES,N=NO)2?Y 
VYECTORT; 

MOVE :UVZD/ZLZR2?U 

PLOT (Y=YES,N=N0)?Y 
VECTOR8 
MOYE:U/D/LVR?U 

PLOT {Y=YES,N=N0O)?Y 
VECTOR9 
MOVE:U/D/ZLVR2R 

PLOT (Y=YES,N=NO)?3N 
VyYECTOR16 : 

NOVE :UV/D/VLVR3R 

PLOT {Y=YES,N=NO)?Y 
VECTOR11: 
MOVYE:U/ZD/VLVR?3R 

PLOT (Y=YES,N=NO)?3Y 
VECTOR12: 
MOVE:0/VD/VL/VR?R 

PLOT (Y=YES,N=N0)?Y 


VECTOR13: 
8%OVE:U/D/L/R2?D 
PLOT (Y=YES,N=NO)38 
VECTOR14: 
MOVE:U/D/VL/VZR?D 

PLOT (Y=YES,N=N0)9 风 
VECTOR15: 
MOVE:U/D/VL/VR?R 

PLOT (Y=YES,N=NO)9y 
VECTOR16: 
MOYE:U/VD/L/VR93D 

pLOT 《Y=YES,N=NO04+3 时 


VYECTOR17， 
MOVYE:U/D/L/R89?L 

PLOT (YaYES,N=NO)S3N 
YECTOR18 
JOYE;9/D7L/R2L 

PL6OT YYES ,N=NO)2Y 
YECTOR19， 
MOVYE:U/D/VLZAR?E 

VERTOR TO CHANGE(O<END)39 
BATE VECTOR 
0 12 

1 3F 

20 

3 04 

4 2D 

] 15 

6 36 

了 1E 

8 67 

9 0C 


执行 这 个 程序 ， 要 求 您 输入 每 一 个 绘图 向 量 并 决定 是 否 
将 它 画 出 ,在 输入 最 后 一 个 向 量 之 后 , 您 必须 输入 卫 来 结束 输 
入 。 按 卫 并 回 车 后 ， 程 序 问 您 修改 那 一 个 向 量 “ VECTNR 
TO_ CHANGE (0 =END) :0 如果 您 在 输入 时 犯 了 错 
误 ， 那 么 您 输入 出 错误 的 那个 向 量 的 号 码 即 可 进行 修改 。 当 
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您 修改 完毕 或 者 是 输入 时 没有 错误 ， 您 输入 0 即 可 结束 修 
改 。 这 时 ， 绘 图 向 量 就 以 十 六 进 制 数 的 形式 显示 出 来 。 您 将 
这 些 向 量 输入 内 存 后 就 可 以 绘图 了 。 

这 个 例子 中 V 表 示 向 上 移动 ; 了 D 表 示 向 下 移动 ; 工 表 示 和 阿 
左 移动 : R 表 示 向 右 移动 。PLOT 中 回答 Y 表 示 画 点 N 玫 
示 不 画 点 。 从 回答 的 情况 看 ， 这 个 例子 也 是 画 一 个 正方 形 。 


习 题 九 
1。 怎 样 进 入 低 分 辨 ， 高 分 辨 绘图 的 混合 方式 ， 和 图 形 
方式 ? 怎样 返回 到 文本 方式 ? 


2。 低 分 辩 率 绘图 的 语句 有 哪些 ? 其 作用 是 什么 ? 
3。 用 低 分 辩 率 绘图 语句 绘制 一 只 帆船 。 见 图 


4。 高 分 辨 绘图 语句 有 哪些 ? 其 作用 是 什么 ? 
5。 用 高 分 辩 率 绘图 方式 绘制 一 面 国旗 ，“〈 见 图 ) 一 只 
帆船 〈 见 上 图 ) 。 
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68。 人 简 叙 向 量 绘图 的 方法 。 
7。 用 向 量 绘图 的 方法 绘制 一 个 六 边 形 ， 一 个 五 角 星 。 
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第 十 音 ”音响 程序 设计 


本 章 ， 我 们 介绍 音响 程序 的 设计 。 

_ 中 华 学 习 机 主机 配 有 扬声器 接口 ， 内 接 0.25W 89 扬 
声 器 一 只 。 当 打 入 命令 有 错 或 程序 执行 过 程 中 有 错 ， 计 算 机 
通过 扬声器 发 出 “ 嘟 ” 声 ， 以 提醒 用 户 注意 。 在 一 些 游戏 软 
件 中 ， 扬 声 器 会 发 出 优美 的 乐曲 声 。 


第 一 节 “计算 机 为 什么 会 唱歌 


我 们 知道 当空 气 中 声波 到 达 人 耳 时 ， 引 起 声音 的 感觉 。 
(人 耳 听 觉 的 声波 频率 范 围 大 约 为 20Hz 到 20000 Hz。) 我 
们 可 利用 BASIC 的 语句 去 控制 扬声器 发 声 。 这 样 的 声音 一 般 
是 简单 的 “ 哪 ” 声 。 但 是 ，BASIC 语 言 可 以 改变 所 发 声音 的 
频率 和 发 声 的 持续 时 间 ， 这 样 就 可 以 发 出 一 种 声音 。 使 扬 声 
器 发 出 一 连 串 不 同 频率 和 音 长 的 声音 ， 就 可 以 组 成 不 同调 子 
的 音乐 。 把 所 发 的 声音 按 一 定 要 求 组 合 起 来 ， 计 算 机 就 能 演 
奏 曲 子 ， 也 就 是 计算 机 唱歌 。 


第 二 节 。 定 音 语句 MUSIC 


格式 ，MUSIC 共 ，Y 
这 个 语句 可 以 定义 一 个 音阶 和 音 长 ， 并 使 计算 机 发 出 这 
个 声音 。 
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表示 发 声 频率 。 取 值 范 围 在 0 ~255 之 间 。 共 的 取 值 与 
对 应 的 音阶 如 表 10-1 


甫 10-1 


X 和 值 | 255 台 205 192| 2 152| 140 ia 1 102| 95 | 84 75 | 68| 62 


音阶 | 5 辣 国 下 折扣 四 昌 加 加 加 本 站 下 


Y 表 示 音 长 ， 也 就 是 发 声 时 间 。 取 值 范 围 在 0 一 255 过 
间 。Y 的 取 值 与 对 应 的 音 长 如 表 10-2 


家 10-2 
值 30 70 il10 160 255 


阁 K | | aa | : 拍 | 2 扯 | 4 移 


第 三 节 ”怎样 编制 唱歌 程序 


本 节 我 们 将 通过 几 个 例子 来 介绍 怎样 利用 MUSIC 语句 
来 编制 唱歌 程序 。 

编制 音乐 程序 ， 首 先 您 应 该 将 乐 昌 中 的 音调 按照 一 定 的 
频率 〈 音 阶 》 和 音 长 对 应 的 值 列 出 来 ， 并 且 将 这 些 值 做 为 数 
据 保 在 起来。 您 可 以 用 读 命令 READ 从 数据 区 将 这 些 数据 依 
次 读 出 来 供 MUSIC 语 句 发音 用 。 例 如 ， 您 要 计算 机 发 “1? 
这 个 音 那 么 您 对 音阶 应 取 值 为 192， 如 果 这 个 音 是 1/2 拍 那么 
音 长 取 值 应 为 "0。 同 理 ， 发 5 这 个 音 ， 音 长 为 2 拍 ， 则 音阶 


247 


音 长 的 取 值 分 别 为 255 和 160。 
下 面 这 个 例子 我 们 将 第 二 节 中 两 张 表 所 列 的 音阶 及 这 样 
音阶 分 别 对 应 不 同 的 音 长 演奏 出 来 。 并 将 这 个 音 的 音阶 和 音 
长 显示 出 来 。 


程序 如 下 : 
8 REH C10301 
396 DATA 255,228,265,192,171,152,140,128， 

114,102,95,84,75,68,62 

20 YY=-18 
36 FOR 1L= 1105 
40 RESTORE 
50 YY=Y+40 
55 IF Y=156 THEN Y=Y+19 
56 IF Y=266 THEN Y=Y+55 
68 FOR J= 17T0 15 
78 READ X 
75 PRINT “X= ”3X， Y= ”3Y 
86 MUSIC XY 


98 NEXT J,1 
108 END 
Se Ya30 X=192 Ya70 
X-205 Y=38 X=152 Y=70 
X=192 Y=30 X=140 Y=70 
X=171 Y=309 X=128 7 
X=152 Y=30 X=114 Y=70 
X=128 Y=38 X=95 了 
X=114 Y=36 X=84 了 
X=102 Y-38 和 wa 
X=95 Y=38 0 
X=84 Y=39 X=62 Y=76 
X=75 Y=38 X=255 Yas116 
X=68 Y=36 X=228 Yei10 
X=62 Yz=30 X=205 Y= 1 10 
X-255 Y-79 0 0 
X=228 Y=78 X=171 Y=118 
X=205 Y=70 X=152 Y=119 
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CI 


X=140 Y=118 X=84 Y=168 


X=128 Y=119 =75 Y=168 
X=114 Y=118 X=68 Y=168 
X=102 Y=116 X=62 Y=168 
X=95 Y=119 X=255 Y=255 
X=84 Y=118 X=228 Y=255 
X=68 Y=119 X=192 Y=255 
X=62 Y=116 X=171 Y=255 
X=255 Y=8866 X=152 Y=255 
X=228 Y=168 X=140 Y=255 
X=265 Y=168 X=i28 Y=255 
X=192 Y=168 X=114 Y=255 
X=171! Y=166 X=102 Y=255 
X=152 Y=168 X=95 Y=255 
X=146 Y=169 X=84 Y=255 
X=128 Y=166 X=75 Y=255 
X=114 Y=189 X=68 Y=255 
X=102 Y=168 X=62 Y=255 
X=95 Y=169 

故事 片 《 城南 旧事 ”的 播 曲 《送别 ? 

“送别 ”的 原 谱 为 : 

送 别 

1=C 4/4 
35 1 一 |615 一 5 12 3 21 2 
35 人 15 一 |52347|1 一 -0 

1 1 一 |721 一 2163|2 一 一 0 | 
35 1.7 |6 416 5 一 |5247|1 一 一 | 

程序 如 下 
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5 陛 Ci19382 

18 DATA 128,1586,.152,118,128,119,95,255， 
114,1496.95,119,114,118,128,255.128， 
166,192,118,131,1106,152,160,171,119， 
192,116,171,25S,171 ,255 

26 DATA 123,168,152,119,128,116,95,269， 
102.116,114,169,95,160,128,255,128， 
168,171,116,152,116, 148,2986,205,119， 
192,255,192,168 

30 DATA 114,166,95,160,95.255,162,160， 
114,116,102,119,95,255,114,110,192， 
118.95,110,114,119,114,110,128,119， 
152,116,192,110,171,255,171,150 

49 DATA 128, 160,152,118,128,110,95,290， 
162, 119,114,168,95,116,114,119,128， 
255,128, 166,171,110,152,110.146,206， 
265,116, 192,2355,192.168 

42 DATA -99,-39 

58 READ X,Y 

55 1F X=-99 TJEN 96 

56 _ PRINT CHRECRUD(1)#95+32); SPC( ID ， 

66 MUSIC X,Y 

86 6G0T0 58 

90 FEND 


运行 这 个 程序 ， 您 将 会 听 到 “送别 ”的 则 子 并 且 还 会 看 
到 屏幕 上 在 演奏 的 同时 显示 出 一 些 随 机 的 字符 。 这 个 程序 只 
能 演奏 一 遍 ， 您 如 果 想 连续 演奏 ， 只 要 将 90 语 句 改 成 

90 RESTORE : GOTO 50 

即 可 。 您 如 果 还 想 选 择 是 否 继续 演 秦 ， 可 用 下 面 程 
序 : 


5 RENH C186302-1 
16 DATA 128,160,152,110,128,118,95,255， 
114,166,95,116,114,116,128,255,128， 160， 
192,110,171,119,152,166, 171,116,192， 
1345,171,255,171,255 
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28 DATA 128,169,152,116,128,i18,.395,280， 
102,110,114,166,95,168,128.255,128， 
160,171,110,152,116,140,268,265,110， 
192,255, 192,168 

386 DATA 114,166,95,168,95,255,.162,.166,114， 
116,102,119,395,255,114,110,162,1106,35， 
110,114,116,114,116,128,110,152,116， 
192,110,171,255,171,166 

46 DATA 128,160,152,110,128,116,95,266， 
102,110,114,189,95,110,114,1180,128,255， 
128,160,171,116,152,116,140,280 ,205， 
116,192,255,132,160 

42 DATA -99,.-99 

50 READ X,Y 

55 IF X=-39 THEN 90 

56 PRINT CHRSCRND(1)#95+32); SPC( 1) 3 

60 MUSIC X,Y 

80 00T0 50 

99 PRINT: INPUT “CONTINUE(Y/VN)23” JXS 
上 IF JXS=“Y”THEN RESTOKE: 60T0 5 

108 END 


第 四 节 ”利用 机 器 语言 发 声 


中 华 学 习 机 还 可 以 利用 机 器 语言 子 程序 与 BASIC 配合 
使 用 。 使 扬声器 发 出 不 同 的 声音 ， 编 制 出 不 同 的 曲子 。 如 果 
您 没有 学 过 机 器 语言 或 汇编 语言 。 这 不 要 紧 ， 您 只 要 按 下 面 
方法 将 这 个 机 器 语言 子 程序 装 入 内 存 即 可 了 。 

一 、 机 器 语言 发 声 子 程序 

BASIC 在 内 存 位 置 768 与 975 〈$300 与 $3CF) 之 间 会 预 
留 机 器 语言 子 程序 及 向 量 表 的 位 置 。 使 用 这 些 内 存单 元 不 必 
改变 或 设置 LOMEM : 而 可 直接 使 用 。 

装 入 机 器 语言 子 程序 到 内 存 中 ， 必 须 先 进入 监控 程序 。 
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输入 命令 CALL-151 后 便 可 进入 监控 程序 。 注 意 ， 当 您 输入 
完 CALL-151 后 不 要 忘记 打 回 车 键 (“./”) 。 


进入 监控 程序 后 ， 您 就 可 以 输入 下 面 的 机 器 语言 子 程 


序 了 : 这 是 一 个 发 声 的 机 器 语音 子 程序 。 


么 


] CALL 一 151./ 

关 302 :AC 01 03 AE 01 03 A9 04 20 
AB FC AD 30 CO E8 DOFO CE 00 
03 DO E7 60./ 

这 样 ， 这 个 子 程序 就 存放 在 $302 到 $318B 的 内 存 区 域 中 。 

您 可 用 下 述 方 法 检查 子 程序 是 否 正确 ， 

头 302 工 。/ 

0302 一 AC 001 03  LDY $0301 

0305 一 AE 01 03 LDX 3$0301 

0308 一 A9 04 LDA  *$04 

030A 一 20  A8 RFRC JSR  S$FCA8 

030D 一 AD 30 CO LDA $CO30 


0310 一 了 8 INX 
0- -1 一 DO FFD BN 了 BE $0310 
0313 一 88 DEY 
0314 一 DO 了 下 BNE  $0305 
0316 一 CE 00 03 DEC $0300 
0319 一 DO 了 7 BN 玉 $0302 
031B 一 60 RTS 


如 果 您 的 显示 器 屏幕 上 的 子 程序 同上 面 的 清单 一 样 ， 那 
您 的 子 程序 就 是 正确 的 。 
如 果 您 的 程序 是 正确 的 ， 您 就 应 该 将 这 个 程序 保存 在 磁 


带 上 或 磁盘 上 。 
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如 果 您 使 用 DOS 3 .3 启动 中 华 学 习 机 ， 那 么 您 可 以 使 用 
BASIC 中 的 BSAVE 命 令 将 这 个 子 避 序 存 到 开 盘 上 去 ， 

] BSAVE SOUND，A$302，L26 

这 个 命令 将 把 发 声 机 器 语言 程序 作为 二 进 制 文件 保存 到 
磁盘 上 ， 其 文件 名 为 SOUND， 当 您 以 后 需要 使 用 这 个 子 程 
序 时 ， 可 以 随时 用 BLOAD 命 令 或 BRUN 命 令 将 它 装 和 内存 
或 运行 这 个 子 程序 。 

如 果 您 使 用 的 是 磁带 机 〈 录 音 机 ) ， 用 下 面 揭 监 控 命 令 
可 将 这 个 子 程序 保存 起 来 : 

共 302 。31BW 

这 样 ， 这 个 子 程序 就 被 存在 磁带 上 供 以 后 使 用 。 如 果 您 

想 把 这 个 子 程序 从 磁带 上 装 入 内 存 , 可 以 用 下 面 的 监控 命令 。 
X302 .31BR 

这 个 命令 表示 将 数据 〈 子 程序 ) 由 开 带 上 读 入 内 存 中 ， 
放 到 十 六 进 制 的 302 开 始 到 31B 为 止 的 内 存单 元 中 。 〈 关 于 磁 
带 机 的 操作 请 参阅 有 关 资 料 ) 
二 、 调 用 机 器 语言 发 声 子 程序 

建立 好 机 器 语言 发 声 子 程序 后 ， 您 可 以 在 BASIC 话 言 
调用 这 个 发 声 子 程序 。 首 先 ， 您 应 该 将 您 要 计算 机 发 音 的 频 
率 《 这 里 假设 为 了 ) 和 持续 时 间 〈 假 设 为 D) 分 别 放 入 769 
($301》 和 768 〈$300) 内 存单 元 中 ， 然 后 用 CALL 命令 转 
到 内 存 中 770 〈$302》 处 去 执行 机 器 语言 发 声 子 程 序 。 您 可 
以 使 用 下 面 的 BASIC 程 序 来 完成 上 述 操作 。 


3210  POKE 768，D 
3220 POKERE 769， 下 
3230 CALL 770 


3240 RETURN 
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在 BASIC :中 可 以 设 定 两 个 变量 值 而 产生 声音 。 例 如 上 
面 程序 中 的 和 D 。 字 表示 频率 ， 取 信 范 围 可 在 1 一 255 之 
间 ，255 是 最 高 的 音调 ， 了 表示 持续 时 间 ， 取 信 范 围 也 在 


TI 二 255 之 间 ，255 是 最 长 的 持续 时 间 。 


用 下 面 的 BASIC 和 程序， 可 以 使 您 听 一 听 每 


的 持续 时 间 。 


5 及 BM Cl10401 

10 FOR T=1 TO 254 
20 FOR T=1 TO 254 
30 F=I 

40 了 -= 了 

50、GOSUB 3200 

60 NEXTJ:INEXTI 
7 BEND 

3200 POKERE 768，D 
3210 ?OKE 769， 下 
3220 CALL 770 
3230 及 ETURN 


人 
4 


用 下 面 的 程 席 您 可 以 听 到 一 些 音乐 的 音符 。 


5 REK Ci6401-1 
8 DATA 26,238.36,44,52,60,69,77,85 
1 


6 DATA 165,113,121;129,136,143,150,157， 


163,176,.176,182,188,-99 
26 PRINT CNRS(4);"BLOAD SOUND” 
38 READ F 
46 IF F=-99 00T0 108 
56 POKE 768,244 
66 POKE 769,F 
78 CALL 776 
80 060T0 3 
166 END 


254 


声 


让 
[二 


及 不 同 


注意 ， 在 中 华 学 习 机 上 利用 发 音 机 器 语言 子 程序 发 音 ， 
频率 虽然 允许 在 0 ~255 之 内 取 值 ， 但 若 取 89 一 104 之 间 的 恒 
或 其 它 个 别 值 ， 将 会 出 错 而 不 能 正常 运行 程序 。 这 无 疑 是 对 
用 机 器 语言 编制 欧 曲 的 一 个 限制 。 
三 、 一 个 实用 的 发 声 程序 
现在 ， 给 大 家 介绍 一 个 实用 的 发 声 程序 ， 这 个 程序 利用 
前 面 的 机 器 语言 子 程序 可 以 建立 一 连 串 的 声音 ， 供 您 听 ， 改 
变 或 者 将 它们 列 印 出 来 。 供 以 后 其 它 BASIC 程 序 使 用 。 
程序 清单 如 下 ， 


5 REN C10402 

26 DIE AC199,2) 

38 CALL - 936 

496 1NPUT “(E)NTER,(E)TSTEN，IP)RINT3” 3 人 
56 1F ASs="L”THEN 1009 

69 IF AS=-p”THEN 1209 

80 1F AS<>"E”THEN 3 

96 PRINT 

168 1=8 

105 ic=l 

116 60SUB 3006 

128 IF F-b AND D=6 THEN !=1-1: 00T0 209 
136 AUi,1) = F: A(i,2) = D 

146 1=1+1 

156 60T0 105 

2067 REM CHANGEANYITEKSHERE 

205 PRINT “WRICH NOTE TO CHANGE (6-”33 2 
206 INPUT E 

298 IF E=9 THEN 39 ; 

216 IF ECL OR E > 1 THEN 210 

220 M = E: 60SUB 3000 

239 A(E,1)=F: A(E,2)=D: G0Y0 205 

1656 REM LISTEN TO THE NOTES SO FAR 
1916 FOR Kz=9 TO 1 

182 F=A(K,1): D=A(K,2); 60SUB 3208 
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《638 NEXT 如 

1048 00T0 38 

1286 REM PRINT 6UT THE NO0TES 

1210 PRINT “NOTES#"。，"FREQ”，“"DURATION” 

1220 FOR K = 6001 

1236 PRINT K,ACK,，1),ACK,2) 

124@G NEXT 长 

1258 PRINT 

1255 PRINT “pRESS RETURN TO CONTINUE”: 
INPUT ZS$ 

1266 00T0 36 

9609 PRINT “TONE”? 汉 ， 

3810 INPUT “ENTER FREQUENCY,DURATION";F,D 

3015 IF F=0 AND D=G THEN RETURN 

3820 IF (F46 0R F>255) 0R (D1 0R D>255) 
THEXR 30i6 

30306 00SUB 3200 

3840 8ETURN 

3200 REi SPEAKER DRIYER 

3216 POKE 768,D 

3220 POKE 769,F 

3236 CALL 770 

3246 RETURN 


执行 这 个 程序 ， 您 会 看 到 〈E) NTER、(L) ISTEN、 
(P) RINT? 的 提示 信息 ， 您 可 以 选择 是 输入 一 些 音 调 
( 卫 ) 、 还 是 将 这 些 音 调 发 出 来 〈 工 》 ， 或 者 是 将 每 一 个 音 
调 的 频率 及 持续 时 间 显 示 出 来 或 列 印 出 来 (P) 。 

第 一 步 ， 您 应 该 先 输入 一 些 音调 ， 所 以 应 选择 卫 并 按 下 
RETURE 键 。 

这 时 ， 您 会 看 到 TONE 0 : FREQUENCY，DURA 
TIONY? 的 提示 信息 ， 要 您 输入 要 发 声音 调 的 频率 和 持续 时 
间 两 个 数字 ， 这 两 个 数字 都 必须 是 在 1~… 255 之 间 的 数字 ， 当 
您 答 入 这 两 个 数字 并 按 RETURN 键 之 后 ， 中 华 学 习 机 的 扬 
声 器 就 发 出 这 个 音调 ， 这 个 程序 多 许 您 输入 一 一 因 串 的 音调 
《最 多 100 个 音调 》， 当 您 输 完 最 后 一 个 音调 后 ， 您 可 输 入 
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0，0 来 结束 输入 。 

当 您 输入 结束 后 ， 屏 幕 上 显示 出 “WHICH NOTz3 
TO _ CHANGE? 提示 您 是 否 修改 您 输入 的 和 企 何 音调 ， 如 
果 您 修改 某 个 音调 ， 您 输入 这 个 音调 的 数字 即 可 。 否 则 ， 您 
输入 0 就 可 以 退出 输入 或 修改 了 。 

当 您 修改 完毕 后 ， 您 将 会 再 看 到 (E) NTER、 (EL) 
ISTEN、 (PRINTY? 的 信息 。 现 在 您 可 输入 工 并 按 下 
RETURN 键 ， 这 时 ， 中 华 学 习 机 将 把 您 刚 输入 的 一 连 串 音 
调 重新 发 出 来 。 当 这 一 连 串 音调 发 声 完毕 后 ， 又 会 出 现 上 面 
的 提示 信息 ， 这 时 您 可 选择 了 显示 或 印 出 每 一 个 音调 的 频率 
数字 及 持续 时 间 数 字 。 

利用 这 个 程序 您 可 以 输入 一 些 音调 并 进行 试听 、 修 改 ， 
并 可 将 这 些 音调 的 值 打印 出 来 。 利 用 这 些 值 和 发 声 机 器 语言 
子 程序 您 可 以 作曲 或 发 出 任意 的 声音 。 


习题 十 


1。 分 析 C10302 程序 ， 怎 祥 能 使 计算 机 唱歌 ? 怎样 使 计 
算 机 边 唱 葡 边 显示 一 些 字符 ? 

2。 利 用 定 音 语 句 MUSIC 编 两 个 您 喜欢 的 歌曲 。 

3。 怎 样 利用 机 器 语言 子 程序 发 声 ? 
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第 十 一 章 ”其 它 的 BASIC 
语句 和 冰 数 


前 面 我 们 介绍 了 一 些 中 华 学 习 机 BAStC 语言 的 语句 和 
蔓 数 。 在 本 章 ， 我 们 介绍 另外 一 些 中 华 学 习 机 BASIC 语 言 
的 语句 和 国 数 。 这 些 语句 和 函数 大 都 与 系统 有 关 。 下 面 介绍 
这 些 语 名 和 盟 数 。 


第 一 节 ”游戏 控制 器 的 使 用 
与 PDL (n) 函数 


中 华 学 习 机 主机 配 有 一 个 九 针 的 游戏 杆 插座， 通过 这 个 
游戏 控制 杆 接口 可 提供 四 个 模拟 量 的 输入 ， 三 个 开关 量 的 输 
入 和 四 个 开关 量 的 输出 。 可 以 内 接 一 个 或 两 个 游戏 控制 杆 。 中 
华 学 习 机 的 游戏 操纵 杆 与 APPLET 的 兼容 ， 它 可 以 运行 大 
部 分 APPLEI 机 的 游戏 软件 。 而 绝 大 部 分 游戏 软件 都 适用 
于 游戏 操纵 杆 方 式 。 

一 、PDEL (na) 范 数 

格式 : PDL (ay》 

这 个 函数 可 用 来 读 取 *n (na=0~38)》 控 制 杆 位 置 量 
的 编码 值 (0 一 255) 。 

例如 ， 下 面 这 个 程序 是 读 * 1 控制 杆 位 置 的 值 并 输出 的 
程序 ， 
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5 及 BM C1101 

10 G=PDL(T) 

20 PRINT TAB(15); G 

30 FOR I=-1 TO 100:NBXST 
40 GOTO 310 


荆 、 读 入 开关 恬 (SW 0 一 2) 

三 个 开关 量 在 内 存 中 的 地 : 直 为 $C061~ 3$C063 (或 者 
$C069~ $C06B ) ， 即 相当 于 -16287 ~- 16285 (或 老 
-16279~- 16277)。 

用 下 面 的 语句 可 读 入 三 个 开关 量 ， 

人 = 了 PERK (-16287 +mn) 

这 里 的 n = 0 一 2。 

如 果 所 读 的 开关 量 值 天 于 127， 则 表示 对 应 开关 置 工 。 
三 、 闪 出 四 个 开关 旱 (AN 0 一 3) 

这 四 个 开关 置 0 的 内 存 地 址 为 -16296+2n (=0~3) 
即 相当 于 $C 058+ 2n。 置 1 的 内 存 地 址 为 -~ 16295 + 2n(n = 
0 一 3》， 即 相当 于 $6059 + 2n0。 用 PEEK 或 PO 攻 也 语 名 访 
问 这 些 相应 单元 ， 便 可 使 这 四 个 对 应 的 开关 量 - (AN 0 一 3) 
置 荆 或 置 0 。 


第 二 节 ”其 它 语句 和 函数 


一 、CAEE 命令 
”格式 ,CALL 算术 表达 式 
这 个 命令 可 以 调用 机 器 语言 子 程序 ， 算术 表达 式 的 值 在 
总 Re 
通过 这 个 命令 ， 您 可 以 由 BASIC 程 序 调 用 一 个 机 器 语言 
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写 的 子 程序 ， 并 运行 这 个 机 器 语言 子 程序 。 当 这 个 子 程序 运 
行 结束 后 ， 还 可 以 返回 BASIC 程序 中 继续 运行 BASIC 程 
序 。 

例如 : 进入 监控 程序 ， 其 地 址 为 ~- 151 ($FF69) 

] CALL =- 151./ 

又 如 在 监控 的 标准 子 程序 中 有 一 个 响 伶 程序 ， 其 地 址 
为 65338 ($SFF3A) 。 现 调用 该 子 程序 使 之 连续 响 铃 50 次 。 
BASIC 程 序 清 单 如 下 ， 


5 及 EM C11201 

10 FOR I=1 TO 50 
20 CALEL 65338 

30 NEXT 


及 UN 了 


运行 这 个 程序 ， 可 使 扬声器 连续 发 声 50 次 。 

再 如 : 第 十 章 中 有 一 个 机 器 语言 发 声 的 子 程序 ， 放 在 内 
在 中 地 址 为 770〈$302) 开始 的 单元 中 ， 现 调用 这 个 子 程 
序 ， 就 会 使 扬声器 发 声 。 

] CALL 770。y 

中 华 学 习 机 有 有 一些 固有 的 机 器 语言 子 程序 放 在 ROM 中 。 
您 自己 也 可 以 编写 机 器 语言 子 程序 。 您 自己 编写 的 机 器 话 言 
子 程序 可 以 用 BLOAD 命 令 或 BRUN 命 令 装 人 RAM 中 。 不 论 
是 在 ROM 中 或 者 是 在 RAM 中 的 机 器 语言 子 程序 ， 都 可 以 用 
CALL 命 令 调 用 。 
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二 、PEEK 汞 数 与 POKE 语 名 

格式 ，PEEK (X) 

POKE X，Y 

PEEK 函数 可 以 给 出 由 关 值 表示 的 内 存 地 址 单元 中 的 内 
容 ， 范 数值 用 十 进 制 数 表示 。X 可 以 是 一 个 算术 表达 式 ， 其 
值 必 须 在 - 65535 和 65535 之 间 。 和 也 是 一 个 十 进 制 整数 。 

例如 ，] A= 了 PEEK (200) 

这 个 例子 把 地 址 为 200 的 内 存单 元 中 的 值 赋 给 变量 A。 

利用 这 个 PEEK 函数 ， 您 可 以 读 到 内 存 中 任何 单元 中 的 
值 。 

”了 POKE 语 名 可 以 将 Y 存 到 入 值 表示 的 内 存 地 址 单元 中 。 
Y 取 值 范围 在 0~255 之 间 ;， X 值 必须 在 -65535 和 65535 之 
间 。X，Y 的 值 应 是 一 个 十 进 制 的 整数 。 

例如 ，] POKE 8000，30 

这 个 例子 将 十 进 制 数 30 放 和 内存 地 址 为 8000 的 内 存单 元 
中 。 

在 POKE 语 句 中 ，Y 立 可 以 是 一 个 数值 常量 、 变 量 或 是 一 
个 表达 式 ， 但 是 它 的 值 仍 须 在 0 一 255 之 间 。 


5 REM C11262 
16 A=25 

29 POKE 33,A 
J8 END 


运行 这 个 程序 ， 可 以 将 屏幕 显示 宽度 为 每 行 25 个 字符 。 
中 华 学 习 机 的 内 存 地 址 33 的 功能 是 设置 文本 屏幕 的 显示 寓 
度 。 
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您 可 以 使 用 PEEK 函 数 查看 RAM 或 ROM 中 的 内 容 。 使 
用 POKE 语 名 您 只 能 把 值 写 人 RAM 内 而 不 能 写 人 ROM 中 ， 
因为 ROM 中 的 内 容 只 能 被 读 而 不 能 写 和 任何 东 西 。 

注意 : 在 内 存 中 ， 有 许多 地 址 的 内 存单 元 中 存放 一 ' 些 重 
要 的 资料 ， 如 果 改 变 这 些 内 存单 元 中 的 内 容 ， 将 会 影响 到 整 
个 系统 。 所 以 当 您 使 用 PO 玫 语句 时 ， 一 定 要 慎重 。 

一 般 的 内 存 地 址 都 是 用 十 进 制 和 十 六 进 制 数 表示 的 。 如 
果 用 十 进 制 数 表 示 ， 它 的 值 都 比 32767 小 ， 对 于 大 于 32767 的 
内 存 地 址 都 是 使 用 负数 来 表示 的 。 这 个 负数 是 大 于 32767 的 
内 存 地 址 值 与 65536 的 差 。 例 如 : 内 存 地 址 如 果 是 49152， 则 
用 负数 表示 的 值 为 49152.- 65536 = - 16384。 当 然 ， 您 用 正 
数 表 示 也 是 可 以 的 。 

下 面 将 一 些 有 用 的 内 存单 元 的 地 址 及 其 功能 给 予 简单 介 
绍 。 

1。 文 本 方式 下 屏幕 及 光标 控制 内 存单 元 

32 设置 屏幕 的 左边 空白 的 行 数 ， 这 个 内 存单 元 写 入 值 的 
范围 必须 在 0 一 39 之 间 。 
33 设置 屏幕 显示 的 宽度 ， 这 个 内 存单 元 写 人 的 值 范围 必 

须 在 工 一 40 之 间 ， 但 要 求 这 个 值 与 32 单 元 中 的 值 相 加 不 超过 
40， 否 则 ， 将 会 有 一 些 输 出 信息 不 会 被 显示 在 屏幕 上 或 者 使 


您 的 程序 受到 损坏 。 
34 设置 屏幕 的 顶 行 。 这 个 内 存单 元 写 人 值 的 范围 必须 在 
0 一 23 之 间 。 


35 设置 屏幕 的 底 行 。 这 个 内 存单 元 写 入 值 的 范围 必须 在 
6 ~23 之 间 。 

36 ”光标 的 水 平 位 置 。 由 PEEK 《36) 可 返回 一 个 0 ~39 
之 间 的 值 ， 这 个 值 就 是 当前 光标 的 水平 位 置 。 
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37 “光标 的 垂直 位 置 PEEK (37) 返回 一 个 0 一 23 的 

值 ， 这 个 值 就 是 当前 光标 的 垂直 位 置 。 
2。 错 误 处 理 有 关 单 元 

216 这 个 地 址 值 决定 ONERR GOTO 语 句 是否 被 执行 。 
如 果 这 个 值 是 128， 则 可 以 执行 ONERR GOTO 语 句 , 否 
则 的 话 ， 则 遇 到 ONERR GOTO 语 名 将 不 执行 。 可 以 用 
POK 了 语句 给 这 个 单元 送 值 。 

218 及 219 ” 当 一 个 错误 发 生 而 使 得 ONEER GOTO 语 
名 执行 时 ， 这 两 个 位 置 存放 引起 错误 的 行 号 。 发 生 错 误 的 行 
号 可 由 ? PEEK (219) 关 256+ 了 PEEK (218) 语 杀 得到。 
- 222 ”这 个 位 置 给 出 发 生 错 误 的 类 型 。 用 PEEK 〈222) 可 

-以 得 到 错误 码 。“〈 见 表 11-1) 

3。 键 盘 接 收 

-16384 键盘 输入 字符 ， 如 果 这 个 位 置 的 值 大 于 127， 
则 表示 刚刚 有 一 个 键 被 按 下 了 。 您 可 以 用 PEPEK (- 16384) 
-128 得 到 刚 输 入 字 的 ASCII 码 。 

-16368 将 -16384 的 第 七 位 置 为 0， 以 便 下 一 个 字符 
能 被 读 和 人 。 用 POKE - 16368，0 可 以 实现 此 功能 。 

4。 显 示 开 关 

-16304 选择 图 形 显示 方 式 。 可 用 POKE- 16304，0 
进入 图 形 显示 方 式 。 

-16303 选择 文本 显示 方式 。 可 用 POKE -16303，0 
进入 本 文 显示 方式 。 

-16302 选择 全 屏幕 图 形 显 示 方 式 。 可 用 POKE 
-16302， 0 来 选择 全 屏幕 图 形 显示 方式 。 

-1i6301 选择 混合 显示 方式 。 可 用 POKE - 16301，0 
来 选择 混合 显示 方式 。 
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区 呈 训 cmwmecewmm 学 上 呈 串 


Te 
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kt 
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Se 
已 已 习 人 修 m 
局 一 间 mw 
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ha 
“洋人 CD 
SG ww 4 


191 


tf 9 9 
纵 关公 


PREK(222) 


《AD 


没有 FOR 对 应 的 NEXT 


朗 11-1 


说 明 


没有 这 套 语 言 
范围 错误 

敲 保护 的 文件 
资料 终了 

_ 找 不 到 文件 
磁盘 不 对 

I/O 错 误 

磁盘 满 了 
文件 已 被 销 住 
语法 错误 

没有 缓冲 区 可 用 
文件 类 型 不 匹配 
程序 太 大 

不 是 直接 式 捐 令 
语法 错误 

没有 GOSUB 对 应 的 RETURN 
没有 DATA 语句 了 
不 正确 的 量 


不 正确 的 足 码 

改变 行列 的 度量 

用 零 除 

类 型 不 祖 配 

字 串 长 太 

运算 式 太 复杂 

没有 定义 的 正 数 、 

对 INPUT 不 正确 的 回答 
已 经 按 了 Ctrl 一 C 


iD 
Cn 


-16300 选择 第 一 页 的 文本 或 高 分 辩 率 网 形 方 式 。 可 
用 POKE - 16300， 0 来 选择 。 

-16299 选择 第 二 页 的 文本 或 高 分 辩 率 图 形 方 式 。 可 
用 POKE - 16299， 0 来 选择 。 

-16298 选择 低 分 辨 率 图 形 方式 。 可 用 POKE - 16298， 
0 来 选择 。 

-16297 选择 高 分 辨 率 图 形 方 式 . 可 用 POK 了 BE - 16297， 
0 来 选择 。 

5。 游 戏 控 制 器 和 扬声器 处 理 单元 

-16336 ”扬声器 发 声 。 可 用 PREEK (〈(- 16336) 使 扬 声 

-16352 由 贡 带 输出 头 处 产生 一 个 可 了 昕 到 的 喀 吵 声 。 
由 PREK(- 16352) 产 生 。 

-16287 读 游戏 控制 器 上 第 0 号 的 按钮 ， 若 X 盖 127 
表示 此 钮 被 按 下 。 可 用 PEEK 〔(-- 16287》 来 读 0 号 按钮 。 

-16286 同上 ， 但 是 第 一 号 按钮 。 

-16285 同 下 ， 但 是 第 二 号 按钮 。 

-16296 将 第 0 个 游戏 控制 妇 的 输出 关闭 。 可 以 用 
POKPE -16296，1 设 置 。 

-16295 将 第 0 个 游戏 控制 钼 的 输出 打开 。 用 POKE 
-16295，0 

-16294 将 第 工 个 游戏 控制 器 的 输出 关闭 。 用 POKE 
-16294，1 

-16293 将 第 个 游戏 控制 器 的 输出 打开 。 用 POKEE 
-16293，0 

-16292 将 第 2 个 游戏 控制 器 的 输出 关闭。 用 POK 瑟 
-16292，1 
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-16291{ 将 第 2 个 游戏 控制 器 的 输出 打开 。 用 了 OKE 


-16291，0 

-16290 将 第 3 个 游戏 控制 器 的 输出 关 闭 。 用 了 OK 了 
-16290，1 

-1628P 将 第 3 个 游戏 控制 器 的 输出 打开 。 用 了 OKE 
-16289，0 


三 、HIMEM:， 和 ZELOMEM， 
格式 ，HIMEM，X 
LOMEM: 共 

设置 BASIC 程 序 工 作 区 域 的 上 、 下 耻 地 址 。 

中 华 学习 机 的 内 存 用 在 许多 方面 ， 好 比 说 一 部 分 处 理 您 
的 BASIC 程序， 一 部 分 存 贮 和 您 程序 中 的 变量 ， 另 一 部 分 则 
用 来 存放 DOS 系统 ， 甚 它 部 分 用 来 存 贮 监控 程 序 ， 处 理 图 . 

(用 HIMEM:，X 和 LOMEM: X 设 置 BASIC 程 序 工作 区 
域 的 上 、 下 限 的 目的 是 防止 BASIC 数 据 破坏 高 分 辨 图 形 显示 
区 或 机 器 语言 子 程序 ) 。 


DOS 
HIMEM: ~|- - <$9600 
+ “字符 串 区 ， 
一 一 一 -|<$6000 
高 分 辩 率 图 像 区 
-- 一 < 上 2000 
人 小 气 阵 变量 及 字符 串 指 针 区 
人 小 “简单 变量 及 字符 串 指 针 区 
人 BASIC 程序 行 
LOMEM: ~ 一 一 $800 
文本 及 低 分 辨 率 多 像 区 1 


图 11-1 BASIC 下 内 存 分 配 图 


266 


从 图 11-1 中 可 以 看 出 再 IMEME: 能 设置 您 的 BASIC 程 序 
在 内 存 中 所 能 使 用 的 上 限 ，〈DOS 在 HIMEM: 之 上 ) 您 
可 以 使 用 HIMEM， 这 个 语句 为 机 器 语言 程序 ， 高 分 辩 率 的 
图 像 区 留 出 空间 ， 免 得 与 BASIC 的 数据 区 互相 干扰 ， 唱 到 破 、 
坏 。 

在 启动 DOS 率 统 后 , EIMEM: 值 自动 设置 为 89600。 
LOMEM: 值 一 般 由 “问候 ?程序 CHELLO) 决定 。 车 不 引 
和 DODS 系 统 ，HIMEM 自 动 设置 在 $C000。 

BASIC 的 字符 串 区 是 在 高 分 辩 率 图 形 区 之 上 。 因 为 字符 
串 区 是 向 下 延伸 的 ， 当 它 大 到 必须 占用 高 分 辩 率 图 形 区 的 时 
候 ， 高 分 辨 率 图 像 就 会 被 破坏 。 再 璧 如: 如 果 BASIC 程序 
中 要 调用 机 器 语言 子 程序 ， 那 么 您 就 需要 将 机 器 语言 子 程 序 
放 在 $801~$9600 之 闻 的 某 一 个 区 域 中 ， 这 个 子 程 序 很 容易 
被 BASIC 程 序 的 数据 破坏 , 因为 这 个 区 域 是 条 统 设置 的 BAS 
TC 工 作 区 域 ，BASIC 程序 的 数据 随时 都 可 能 占 用 这 个 区 中 
的 任何 一 个 位 置 。 

如 果 您 想 使 用 高 分 辩 率 图 形 方式 作 图 , 您 可 以 执行 卫 IM 
EM，8191 将 BASIC 程序 工作 区 的 上 限 设 在 高 分 辩 率 显示 区 
第 一 页 之 下 或 者 执行 LOMEM，24576 将 BASIC 程序 工作 区 
的 下 限 设 在 高 分 辩 率 显 示 区 第 二 页 之 上 。 这 样 ,就 可 以 实现 对 
高 分 辨 率 显 示 区 进行 保护 的 目的 。 

如 果 您 想 使 用 机 器 语言 子 程序 ， 您 可 以 通过 将 机 器 语言 
子 程序 放 在 BASIC 程 序 工作 区 之 外 空闲 区 中 的 办 法 来 保护 机 
器 语言 子 程序 。 

内 存 中 BASIC 程 序 的 第 一 条 语句 都 是 从 $801 地 址 开始 向 
上 存放 的 , 程序 最 未 尾 就 是 当前 LOMEM: 地 址 .LOMEM :的 
地 址 是 随 着 BASIC 的 程序 行 的 增加 或 删除 而 增加 和 和 减少 的 。 
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LOMEM:， 与 HIMEM: 的 地 址 值 必 须 在 -65535~ 
65535 之 间 的 十 进 制 数 。 且 要 求 HIMEM: 的 值 必须 大 于 LO 
MEM: 的 值 和 有 足够 的 BASIC 工 作 区 的 户 存 字 间 来 执行 您 的 
BASIC 程 序 。 否 则 ， 就 会 引起 错误 。 

使 用 这 两 个 命令 时 要 十 分 谨慎 ， 在 没有 将 内 在 分 配 搞 清 
楚 之 前 不 可 冒 然 使 用 。 否 则 ， 可 能 会 引起 堆栈 或 其 它 指针 被 
破坏 ， 致 使 系统 无 法 正常 工作 。 

”LOMEM:, 的 当前 地 址 值 存放 在 105 与 106 单 元 中 +HIM 
EM， 的 当前 地 址 值 存放 在 116 与 115 单 元 中 。 可 以 通过 执行 以 
下 命令 得 到 它们 的 当前 值 。 

]PRINT PEEK(106) 关 256+PEEK(C105)./ 

]PRINT PEEK(116) 关 256+PEEK(115)。/ 

注意 ， 如 果 您 用 LOAD 命 令 装 和 一 个 程序 , 则 LOMEM: 
根据 程序 来 决定 其 地 址 。 

例 ，]HIMEME 34000 .5/ 

]LOMEM : 6000  ./ 

这 个 例子 将 BASIC 的 工作 区 定 为 从 6000 一 34000 之 间 的 
内 存 区 域 。 

加 、FRE(X) 匡 数 

格式 ，FRE(CX) - 

这 个 函数 会 释放 数据 区 中 无 用 的 内 存单 元 。 返 回 目 前 内 
存 中 可 用 空间 。 如 果 函 数值 超过 32767, 这 个 国 数 会 返回 一 个 
负数 。 用 这 个 负数 再 加 上 65536 就 是 您 实际 可 用 的 内 存 空间 。 
您 可 以 使 用 的 内 存 空间 位 于 字符 串 区 域 之 下 ， 和 矩阵 变量 及 字 
符 串 指 针 怎 阵 区 之 上 。 

在 BASIC 程 序 热 行当 中 ,如 有 字符 串 变 量 改 变 其 值 的 话 ， 
(如 AS$ 原 来 值 为 “cat”， 后 来 改 为 “dog”) BASIC 不 能 
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删除 “cat2 ， 而 另 分 配 一 个 新 地方 给 “dog”。 这 样 ， 就 
造成 一 些 内 在 单元 的 良 费 。 如 果 您 的 程序 大 量 地 使 用 了 字 
串 并 进行 修改 , 这 样 势 必 会 造成 大 量 存 贮 空间 的 浪费 ,建议 您 
在 程序 中 加 上 上 

A=FRE(0) 
这 个 语句 。 每 隔 一 段 时 间 来 做 个 大 扫除 清理 一 下 无 用 的 内 存 
空间 。 

这 个 函数 的 自 变 量 x 仪 仪 是 一 个 虚 元 ， 该 值 对 国 数 值 不 
产生 影响 ， 一 般 取 0 即 可 。 

五 、USR(X) 革 数 

格式 ，USR(X) 

这 个 函数 能 将 算术 表达 式 和 的 值 送 到 机 器 语言 子 程序 去 
进行 加 工 处 理 。 处 理 完 后 ,该 范 数 的 值 将 放 到 浮 点 累加 器 中 ， 
它 的 抠 行 过 程 如 下 : 

1。 鞠 计算 出 表达 式 X 的 值 ， 将 其 存放 在 $9D~3$A3 单 
元 中 。 

2。 在 $0A 一 $0C 单元 中 在 放 一 条 JMP >x x x x 指令， 
x xxxXx 是 用 户 自 己 所 设置 的 X 值 的 机 器 话 言 子 程序 的 

口 。 当 遇 到 USR(X) 函数 时 就 转 到 $0A 单 元 去 执行 ， 由 于 
0 所 以 就 转 去 对 X 的 值 进行 加 工 处 理 。 

3。 在 机 器 语言 子 程序 执行 完毕 后 ( 即 遇 到 RTS 指 令 后 ， 
也 就 是 对 大 值 处 理 完 毕 后 ) ， 该 函数 所 得 到 的 值 将 放 在 浮 点 
累加 器 中 。 然 后 返回 BASIC 状 态 中 。 

下 面 举例 说 明 怎 样 使 用 USR 函数 

例 ，，]CALEL -151. 

关 OA:4C 60 20./ 
关 0200:60.， 


]PRINT US 有 (9 ) 关 7./ 
683 

在 地 址 $0A 单元 到 0C 单元 中 我 们 放 个 JMP( 其 机 器 码 、 
是 60? 中 转 指令 ， 转 到 $0200。 

在 地 址 $200 单 元 中 ， 我 们 放 个 RTS( 机 器 班 是 60)。 返 回 
到 BASIC ， 执 行 到 USR(9) 时 ， 其 值 9 放 入 暴 加 器 中， 而 监 
督 程序 作 个 JSR 到 地 址 0A 发 现 是 个 JMP 要 跳 到 $200， 而 
$200 是 个 RTS， 要 返回 到 BASIC。 而 函数 返回 的 值 是 以 前 放 
人 和 累加 器 的 值 9 ， 于 是 打印 出 的 结果 是 将 函数 值 9 乘 以 ?7 得 
63。 

六 、WAIT 语 名 

格式 1，WAIT 和 X，Y 

格式 2， 风 AIT 和 ，Z，Y 

WAIT 语 名 使 得 程序 在 执行 过 程 中 处 于 等 待 状态 ， 直 到 
某 个 指定 单元 的 值 变 化成 满足 一 定 要 求 时 程序 才能 继续 涩 
行 。 

X 的 什 表 示 一 个 内 存单 元 地 址 ， 它 必须 在 -65535~ 
565535 之 间 。 

YY 和 忆 分 别 玫 示 两 个 0 ~255 之 间 的 十 进 制 正 整 数 。 执 
行 WAIT 命 令 时 ， 被 转换 成 二 进 制 数 ， 由 0 ~11111111。 

X，Y，2Z 都 可 以 用 算术 表达 式 代替 。 

对 格式 1 :程序 先 读 和 单元 的 值 , 所 读 出 的 内 容 也 转换 成 
二 进 制 数 ， 然 后 与 的 值 逐 位 进行 与 运算 (AND》 。 如 果 
相 与 后 结果 为 堆 ， 则 一 直 重 复 这 样 的 过 程 ，“〈 这 个 过 程 实际 
上 在 执行 WAIT 语 名 但 从 现象 上 来 看 就 像 程序 暂停 执行 一 
样 ) 。 

在 第 二 个 格式 中 ， 程序 先 读 X 单元 的 内 容 然 后 将 X 单 元 
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的 值 与 2 的 值 进行 异 或 运算 〈XOCR) ， 最 后 再 将 蜡 或 运算 
的 结果 辐 立 的 值 进 行 与 运算 ， 相 与 运算 的 结果 为 零 ， 则 重复 
这 样 的 过 程 。 如 果 结 果 不 为 零 ， 则 继续 向 下 技 行 程序 。 

通过 上 面 的 说 明 ， 可 以 看 出 WAIT 语 句 的 目的 主要 在 于 
测试 和 单元 的 内 容 〈 值 ) 。 

下 面 通过 例子 来 说 明 WAIT 语 名 的 使 用 。 

例 1， 使 程序 处 于 等 待 状 态 ， 直 到 按 下 任 一 键 后 ， 程序 
才 继 续 执 行 。 


5 RENC11203 

16 PRINT PEEK(-16384) 

26 WAIT -16384,128 

33 FOR T=1 T0 5: PRINT CHRS(7): NEXT 
406 PRINT “GAME OVER” 

58 END 


这 个 程序 的 第 10 语 名 是 将 读 到 的 键盘 值 ( 地 址 为 -163847 
在 屏幕 上 显示 出 来 。 第 20 语句 是 而 AIT 语 句 将 内 存 中 
-16384 单 元 的 内 容 同 128 进 行 与 操作。 我 们 知道 ， 当 键盘 有 
输入 时 ，-- 16384 单 元 的 值 将 会 大 于 127。 这 个 双 AIT 语 名 的 
作用 是 当 您 按 下 任何 一 键 村 ， 程 序 杰 续 执 行 。30 语 句 和 40 语 
名 的 作用 是 连续 响 五 次 铃 后 显示 员 游 戏 结束 (GAME @OY 
ER) 。 

我 们 可 在 这 个 程序 中 加 一 个 提示 行 : 

15 PRINT“ 按 下 任何 一 键 后 ， 程 序 继续 执行 ? 

例 2: 这 个 例子 也 是 使 程序 暂停 执行 ， 直 到 按 下 游戏 操 
纵 杆 的 第 一 个 控制 开关 按 扭 为 止 。 

5 及 EM C11204 

10 PRINT“ 技 下 游戏 控制 器 的 第 一 个 按钮 
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20 WAIT 一 16286，128 
30 PRINT “BANG1”:END 


这 个 程序 无 须 多 解释 ， 只 有 20 语 句 是 将 游戏 控制 器 的 第 
一 个 开关 量 〈 地 址 在 -16286) 的 值 与 128 进 行 相 与 操作 ， 也 
就 是 党 其 值 大 于 127 时 表示 这 个 按钮 被 按 下 。 程 序 会 继续 热 
行 。 

七 、SPREED 语 名 

格式 ，SPEED = 算术 表达 式 

这 个 语句 可 以 建立 或 改变 计算 机 与 输入 /输出 〈I/0 ) 
设备 之 间 传 送 字符 的 速度 。 算 术 表 达 式 取 值 范围 是 0 ~255。 
最 低速 度 足 0 ， 最 高 速度 是 255。 

例 : 在 显示 器 上 显示 一 些 字符 并 伴 有 喇叭 发 声 ， 请 注音 
显示 字符 的 速 弃 和 扬声器 发 声 长 短 的 变化 。 

5 REM C11205 

10 FOR SD=1 TC 255 STEP 10 

20 SPEDD=SD 

30 PRINT "SPEED=>”; SD 

40 了 PRINT CHR$(7) 

50 NEXT 


运行 这 个 程序 ， 我 们 可 以 看 到 在 屏幕 上 显示 字符 的 速度 
是 越 来 越 快 。 而 场 声 器 发 出 的 声音 是 越 来 越 短促 。 

SPEED 语句 不 仅 影响 屏幕 的 显示 速度 ， 而 且 也 影响 其 
输 它 输入 /输出 设备 的 传送 速度 。 您 不 妨 在 上 面 程 序 中 再 加 


一 条 语句 
5 PR*1 
来 看 一 下 SPEED 语 句 对 打印 机 的 影响 。 
八 、POP 语 名 
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格式 ， POP 

当 使 用 GOSUB 语 名 调用 一 个 子 程序 时 ，BASIC 会 记 住 
子 程序 结束 以 后 应 该 返回 的 地 方 ， 用 RETURN 语 句 可 以 返 
回 到 GOSUB 语 名 的 下 -- 个 语句 上 去 继续 执行 程 序 。POP 语 
名 与 RETURN 语 句 相似， 其 差别 是 执行 POP 语句 时 ， 不 理 
皮 这 个 返回 地 址 而 执行 POP 语句 的 下 一 条 语句 。 实 际 上 ,POP 
的 作用 相当 于 将 GOSUB 语 句 的 作用 改 成 GOTO 的 作用 。 

例 ， 这 个 例子 是 打印 工 到 100 之 内 的 移 数 和 偶数 ,在 这 是 
通过 执行 RETURN 语 名 或 者 是 执行 POP 语句 来 决定 打印 奇 
数 或 偶数 。 


5 及 EM C11206 

10 GOSUB 100 

20 FOR TI-=1 TO 100 

30 TE INT(I/2)=IT/2 THEN PRINT SPC(2); 工 
50 NEXT 

60 END 

100 PRINT“1 一 一 打印 偶数 2 一 一 打印 奇数 ” 

110 TUNPLSY. “选择 1 或 2” 5 X2 

120 IF X2=1 THEN RETURN 

130，POP 

140 FOR I=1 TO 100 

150 IF INT(I/2)《 >I/2THEN PRINT SPC(2); Ti; 
160 NEXT 

170 GOTO 60 


这 个 程序 的 20 一 50 语 句 是 打印 偶数 (SPC(2)) 是 在 数 前 
有 了 两 个 空格 ，140~150 语 句 是 打印 奇数 ， 程 序 运算 时 先 转 到 
100 语 名 上 ， 打 印 出 一 个 小 菜单 供 您 选择 ， 您 可 通过 键盘 输 
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入 1 工 或 2 来 选择 打印 偶数 或 奇数 。 当 X2 = 工时 通过 120 行 搞 
行 RETURN 语 名 返回 到 20 行 释 续 执行 程序 。 如 果 X2 不 等 于 
1 则 执行 POP 语句 ， 继 续 执行 140~170 语 名 。 

一 般 情 况 下 ， 当 您 执行 完 子 程序 想 返 回 到 其 它 地 方 而 不 
是 GOSUB 的 下 一 条 语 蝇 上 去 继续 执行 程序 您 可 以 用 
POP 语句 后 用 GOTO 话 名 转 到 任何 地 方 去 。 

注意 ， 由 于 POP 语 名 不 理 辽 返 回 地 址 ， 便 用 时 应 小 心 ， 
过 多 地 使 用 POP 语句 ， 可 能 会 使 您 的 程序 引起 明 次 上 的 混 
乱 。 


习题 十 一 

1。 中 华 学 习 机 有 一 些 机 器 语言 子 程 序 , 怎样 调用 机 器 语 
言 子 程序 ? 

2。POKE 语 句 和 PEBEK(n) 东 数 的 作用 是 什么 ? 各 举 二 
个 例子 。 

3。 人 怎样 查看 BASIC 工 作 区 的 上 限 、 下 限 ? 怎样 设置 
BASIC 工 作 区 的 上 、 下 限 ? 

4， 举 例 说 明 SPEE] 语句 的 作用 ? 
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第 十 二 如 ”在 BASIC 下 技 
行 DOS 命 令 


如 果 您 在 启动 您 的 中 华 学 习 机 时 引导 的 是 DOS 或 者 是 没 
有 启动 DOS3 但 在 BASIC 中 使 用 PR * 6 来 引导 DOS 后 , 您 就 可 
以 使 用 DOS 命 令 。 绝 大 部 分 的 DOS 命 令 都 可 以 做 为 BASIC 
的 一 条 语句 出 现在 BASIC 和 程序 中 。 


第 一 节 怎样 执行 DOS 命 令 

在 BASIC 程序 中 使 用 DOS 命令 ， 需 要 用 一 条 特殊 的 
PRINT 语 句 将 DOS 命 令 及 贿 数 括 起 来 。 

语 名 格式 是 : 

PRINT CHRS$(4)， “DOS 命 令 和 人 参数” 

由 语句 格式 看 ， 这 个 语句 是 PRINT 语 名 输出 一 个 字 符 
串 ， 这 个 字符 串 以 CHRS$(4) 打 头 ， 其 后 紧 跟 一 条 DOS 命 令 。 
并 且 该 语句 用 回 车 键 结束 。 

CHRS$(4 ) 表 示 的 ASCIH 代 码 是 CTRE -D。 在 命令 中 
使 用 CTRL -D 取 代 CHRS$(4 ) 也 是 可 以 的 。 只 不 过 CTRL 
一 也是 一 个 控制 字符 ， 在 屏幕 上 打印 不 出 来 。 

例 ， 若 想 在 BASIC 程 序 中 列 出 磁盘 文件 目录 。. 

5 REN C12101 
16 DS$=CHRS$S(4) 


286 PRINT D3; ”CATALOG”“ 
3 ENU . 
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再 例 : 在 BASIC 中 删除 一 个 名 为 ABC 的 文件 

10 PRINT CHRS$(4) “DELETE ABC? 

20 END 

在 BASIC 中 使 用 DOS 命令 ， 还 应 注 彰 以 下 儿 个 问题 ， 

1。 在 一 个 PRINT 语 句 中 只 能 有 一 个 POS 命 令 。 

2。 在 程序 中 执行 DOS 命 令 时 ， 要 求 CTREL 一 D(CHRS$ 
(4)) 必须 是 第 一 个 输出 的 字符 ， 所 以 它 的 前 一 个 话 句 必须 
是 用 回 车 结 求 ， 否 则 CTREL 一 D 这 个 字符 将 被 忽略 。 

例如 ， 


5 REY L12103 

10 DS$= CHRS (4》 

26 PRINT “TEST”; 

390 PRINT D3S3 "CATALOG” 
40 END 


运行 这 个 程序 ， 将 显示 “TESTCATALOG”-， 这 是 
因为 第 20 行 末尾 是 分 号 而 不 是 用 回 车 结束 ,所 以 第 30 行 的 D$ 
(CTRL 一 D) 将 被 忽略 掉 ， 这 样 “CATALOG72” 仅 被 认为 
是 一 个 字符 串 而 不 认为 是 一 条 DOS 命 令 。 所 以 做 为 一 个 字符 
串 显 示 出 来 。 . 

3。 当 在 跟踪 分 式 (TRACE) 下 运行 BASIC 程 序 时 , 不 能 
用 上 述 方 法 在 程序 中 使 用 DOS 命 令 。 因 为 在 跟踪 方式 下 执行 
一 条 语句 后 ， 会 输出 下 一 条 要 执行 的 语句 的 行 号 ， 而 不 是 回 

那么 如 何在 TRACE 方式 下 在 程序 中 使 用 DOS 命 令 呢 ? 
可 在 CTRL 一 D 前 加 一 个 回 车 符 〈CHRS$(13)) 即 可 。 

例 ， 对 上 例 中 只 须 将 10 语 句 改 成 

10 D$=CHR$(13)+CHRS$(C4) 
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或 用 PRINT CHR$ (13) +CHRS$C4 )，“ 字 符 电 ? 
也 可 以 。 

这 样 ， 大 多 数 DOS 命 令 也 可 在 跟踪 方式 下 使 用 。 当 然 ， 
对 于 不 是 在 跟踪 方式 下 也 可 以 用 上 述 方法 在 程序 中 使 用 DOS 
命令 。 建 议 您 使 用 DOS 命 令 时 采用 上 述 方法 。 


第 二 节 “DOS 命 令 介绍 


中 华 学 习 机 的 DOS 命 令 除 了 极 个 别 的 〈 如 INIT，MA 
XFILES 等 ) 不 能 在 BASIC 程 序 中 执行 外 ， 其 余 大 多 数 DOS 
命令 都 可 以 在 BASIC 程 序 中 执行 。 现 分 别 介绍 如 下 : 

1。CATALOG 

显示 磁盘 上 的 文件 目录 。 

2。LOAD 文件 名 

将 一 个 BASIC 文 件 从 磁盘 上 装 入 内 存 。 

3。RUN [文件 名 ] 

将 磁盘 上 的 BASIC 文件 装 入 内存 并 执行 这 个 BASIC 程 


4。SAVE 文件 名 

将 内 存 中 的 BASIC 程 序 保存 在 磁盘 上 的 文件 中 。 
5。DRELETE 文件 名 

从 磁盘 上 删除 命令 中 指出 的 文件 。 

6。LOCK 文件 名 

给 文件 名 指出 的 磁盘 文件 加 锁 《〈 加 保护 ) 。 
7。UNLOCK 文件 名 

给 文件 名 指出 的 磁盘 文件 解锁 (去 保护 )。 
8，RENAME 文件 名 1， 文 件 名 2 。 
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将 支 件 名 工 指 定 的 磁盘 文件 改名 为 文件 名 2 。 

9。VERIFY 文件 名 

检查 写 在 磁盘 上 的 文件 是 否 正确 。 

10。 和 及 # 也 

选择 输出 设备 an= 0 屏幕 ，n= 1 打印 机 ，n= 6 是 从 瑞 
盘 上 引导 DOS) 。 

11。IN * 

选择 输入 设备 (n= 0 一 7，n= 0 时 ， 键 盘 输 入 ) 

.12。MON [5C]C，HDC5，O] 

在 屏幕 上 显示 DOS 命 令 及 输入 输出 信息 。 

13。NOMON [CC]C, IC,OD] 

使 MON 命令 的 作用 终止 。 

14。 卫 XEC 文件 名 [，RnD[, Vno 

执行 一 个 DOS 命 令 文件 。 

15。OPEN 文件 名 [,Vng] 

打开 一 个 正文 文件 

16。CLOSE 文件 名 

关闭 一 个 正文 文件 

17。 允 RITE 文件 名 

从 正文 文件 写 数 据 

18。READ 文件 名 

读 正 文 文件 

19。APPEND 

打开 一 个 顺序 文件 并 将 当前 指针 指向 文件 尾 。 

20。POSITION 文件 名 [，Rn] 

在 顺序 文件 中 ， 从 当前 位 置 移动 n 个 成 作为 当前 位 置 。 

21。BSAVE 文件 名 ， 起 始 地 址 ， 长 度 将 二 进 制 信息 
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保存 到 磁盘 上 二 进 制 文件 中 。 
22。BLOAD 文件 名 [，Am] 
从 磁盘 上 将 二 进 制 文件 的 内 容 装 人 内 存 。 
23。BRUN 文件 名 5[，An] 
将 磁盘 上 指定 的 二 进 制 文件 装 人 内 存 并 运行 该 程序 。 
以 上 只 是 简单 介绍 了 在 BASIC 程 序 中 可 执行 的 DOS 命 
令 。 有 关 这 些 命令 的 详细 介绍 , 请 参阅 有 关 操 作 系 统 的 书籍 。 


习 蚌 十 二 


1。 在 BASIC 程 序 中 怎样 执行 DOS 命 令 ? 
2。 判 断 下 面 语句 中 的 DOY 命 令 能 否 被 执行 ， 说 明 为 付 
人 么 ? 

(1) 10PRINT 123 
20 PRINT CHRS(4) 4CATALGGY” 

(2) 10PRINT 123， 
20 PRINT CHRS(C4) CATALOGY 

(3) 10PRINT 123; 
20 PRINT CHRS$(13) +CHR$ (4) “CATA 
工 ODG? 

(4) 10PRINT 123，PRINT CHRS$ (4)3 《CAT 
ALOG? 

(5)》10PRINT 123，PRINT CHRS$13) + CHRS 
(4) 3 《CATALOG2? 

3。 编 写 一 个 实用 程序 ， 程 序 功能 是 : 

(1 ) 列 磁 表 文 件 目 录 〈2) 运行 一 个 程序 

(3 ) 删除 一 个 文件 《4)》 给 文件 改名 

(5 )》 绘 文件 规 锁 《6 ) 给 文件 去 锁 
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第 十 三 章 “BASIC 文件 


文件 一 般 不 在 BASIC 中 介绍 ， 但 是 由 于 在 BASIC 中 涉 
及 到 文件 的 概念 ， 所 以 在 本 章 中 对 文件 系统 进行 简单 介绍 。 


第 一 节 ”什么 是 文件 


一 、 什 么 是 文 侣 

通常 程序 是 保存 在 内 存 中 的 〈RAM) 。 但 是 当主 机 一 
断 电 或 想 运行 其 它 程序 时 ， 原 内 存 中 的 信息 〈 包 括 程序 ) 就 
会 全 部 被 清除 掉 。 在 BASIC 程 序 中 用 的 大 多 数 数据 是 由 程序 
中 的 DATA 语 名 来 设置 的 。 这 样 就 存在 一 些 问题 ，1. 断 电 
时 数据 将 会 随 程序 一 起 被 清除 掉 !' 2。 如 果 数 据 太 多 ， 将 会 使 
程序 变 得 很 大 ， 甚 至 大 到 内 存 容纳 不 下 。 因 此 我 们 常 把 程序 
和 数据 保存 在 磁带 或 磁盘 的 某 个 区 域 中 ， 将 来 使 用 这 个 程序 
和 数据 时 ， 只 要 从 磁带 或 磁 的 特定 区 碟 把 所 要 的 程序 和 数 
据 再 装 入 内 存 就 可 以 了 。 这 样 还 可 以 使 程序 和 数据 永久 保存 
在 磁盘 中 。 磁 盘 操 作 系 统 DOS3 .3 就 是 把 这 些 程序 和 数据 作 
为 文件 进行 管理 的 。 

什么 是 文件 呢 ? 可 以 这 样 说 ; 文件 是 具有 名 字 的 一 组 相 
关 信 息 的 集合 。 为 了 区 别 不 同 的 程序 或 数据 ， 您 还 需要 给 文 
件 起 一 个 名 字 ， 以 便 对 文件 进行 检索 、 修 改 和 和 运算。 文件 名 
字 可 以 由 您 喜欢 的 任何 (1 一 30 个 ) 字符 组 成 县 以 字母 打头 ， 
中 间 不 允许 有 有 逗号 。 一 般 您 给 文件 起 的 名 字 应 该 是 使 您 能 够 
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根据 文件 名 就 明白 这 个 文件 的 内 容 是 什么 。 

二 、 中 华 学 习 机 的 文件 

用 DOS 的 CATALOG 命 令 可 以 将 磁盘 上 的 文件 目录 在 
屏幕 上 列 出 。 在 每 个 目录 项 的 最 左边 用 一 个 字母 来 表明 文件 
类 型 〈 关 表明 加 锁 文 件 ) ， 见 表 13-1 


表 15-1 
字 母 文 件 类 型 
人 | BASIC 程序 国 
B 二 进 制 文件 
工 整数 BASIC 程序 
了 数据 文件 
R 可 执行 的 二 进 制 文件 


字母 A 表 示 这 个 文件 是 中 华 学 习 机 BASIC 程 序 。 这 种 文 
件 是 用 SAVE 命 令 将 文件 保存 在 磁盘 上 的 。 要 用 LOAD 命 令 
装 入 内 存 。 用 RUN 命 令 装 人 内 存 并 运行 程序 。 

字母 B 表 示 这 个 文件 是 二 进 制 文件 ， 这 个 文件 可 能 是 一 
个 机 器 语言 程序 ， 或 是 二 进 制 数据 ， 或 是 高 分 辨 绘图 的 向 
量 。 这 类 文件 是 用 BSAVE 命 令 存 盘 的 ， 用 BLOAD 命 令 装 入 
内 存 ， 还 可 用 BRUN 命 令 装 和 并 运行 机 器 语言 程序 。 

字母 I 表 示 这 个 文件 是 中 华 学 习 机 整数 BASIC 程序 。 这 
种 文件 除了 是 在 整数 BASIC 工 作 方 式 下 产生 的 以 外 ， 它 的 存 
盘 ， 装 和 内存 和 运行 同 BASIC 程 序 。 

字母 了 表示 这 个 文件 是 -- 个 正文 文件 ， 这 类 文件 是 由 
ASCII 码 表示 的 字符 让 组 成 的 数据 文件 。 它 的 内 容 可 以 是 
DOS 命 令 ，BASIC 程 序 ， 书 信 文 章 或 者 是 一 些 数据。 这 种 
文件 是 通过 一 组 DOS 命 令 来 建立 和 使 用 的 。 按 其 存 取 方式 分 
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为 顺序 文件 和 随机 文件 两 种 。 

字母 民 表示 这 类 文件 是 可 以 执行 的 二 进 制 文件 。 

由 于 其 它 类 型 的 文件 在 前 面 的 章节 中 已 作 过 介绍 ， 所 以 
本 章 仅 介 绍 数据 文件 〈 蜂 序 文 件 和 随机 文件 ) 及 与 其 有 关 的 
DOS 命 令 。 


二 节 ”顺序 文件 


顺序 文件 是 由 若干 个 紧 接 在 一 起 的 数据 域 组 成 ;而 每 一 
个 数据 域 又 由 若干 个 字 节 的 字符 组 成 并 且 每 个 数据 域 由 回 车 
(CCR) 字符 作为 结束 标志 。 从 文件 的 开头 算 起 ， 文 件 中 的 
数据 域 依 次 被 编号 为 0 、1 、2 、……… 0 一 个 顺序 文件 最 多 
可 以 有 32768 个 数据 域 。 每 个 数据 域 的 字符 个 数 可 以 是 不 同 
的 。 并 且 每 个 数据 域 最 多 可 以 有 32768 个 字符 。 

顺序 文件 就 如 同 它 的 名 字 一 样 ， 它 只 能 依照 顺序 被 处 
理 ， 您 想 要 读 或 者 写 文件 中 的 某 一 个 数据 域 ， 您 必须 先 读 或 
写 过 它 前 面 的 所 有 数据 域 。 

下 面 介 绍 怎样 使 用 顺序 文件 。 

一 、 打 开 顺 序 文件 

在 使 用 磁盘 文件 前 ， 必 须 先 要 打开 这 个 文件 。 

格式 ，OPEN 文件 名 [，Vn] 

打开 文件 名 指定 的 顺序 文件 。 并 在 内 存 中 给 文件 分 配 一 
企 文件 缓 冲 区 ， 把 文件 读 写 指针 指向 该 文件 的 开头 。 

OPEN 命 令 可 以 一 次 打开 16 个 文件 ， 然 而 您 必须 先 设置 
MAXEFILES。MAXFILES 命 令 的 作用 是 设置 一 次 能 够 打开 
文件 的 个 数 。 可 以 是 奔 -16 个 文件 。 例 如 要 想 一 次 打 开 16 个 
文件 ， 可 用 下 面 的 命令 ; 
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MAXFILES 16 

如 果 您 使 用 OPEN 命 令 时 ， 指 定 的 文件 不 在 磁盘 上 ， 则 
自动 建立 该 文件 。 如 果 磁 盘 上 有 该 文件 并 且 该 文件 已 经 打 
开 ， 则 OPEN 命 令 首 先 关 闭 该 文件 ， 然 后 再 打开 这 个 文件 。 

例 1 . 飞 面 这 个 程序 是 在 磁 稚 上 建立 一 个 名 叫 SJWi 的 
顺序 文件 。 

100 DS$=CHRS$(4) 

200 PRINT D3$， “OPEN  SJWJ7 

300 END 

上 面 的 例子 仅仅 是 您 第 一 次 使 用 时 才 在 磁盘 上 建立 的 一 
个 顺序 文件 。 而 以 后 再 使 用 这 个 程序 就 是 打开 这 个 顺 序 文 
件 。 

二 、 关 闭 硕 序 文件 

格式 ，CLOSE [文件 名 ] 

关闭 文件 名 指定 的 顺序 文件 。 若 没有 给 出 文件 名 ， 则 
CLOSE 命令 关闭 所 有 打开 的 文件 。 

当 您 对 一 个 数据 文件 〈 正 文 文件 ) 处 理 完 以 后 ， 一 定 要 
将 这 个 文件 关闭 。 用 CLOSE 命令 关闭 文件 是 非常 重要 的 ， 
如 果 您 没有 将 打开 的 文件 关闭 ， 往 往 会 使 文件 中 的 数据 丢 
失 ， 而 且 还 可 能 眉 掉 其 儿 破 盘 上 的 数据 。 

由 此 可 见 ， 对 上 面 的 例 1 ， 我 们 加 上 下 面 的 语句 是 非常 
必要 的 ， 否 则 ， 可 能 引起 不 可 想象 的 后 果 。 

290 PRINT D$， “CLOSE? 
或 ”290 了 PRINT D$， “CLOSE  SJWJ7 

三 、 写 顺序 文件 

格式 ， WRITE 文件 名 [， Bn] 

给 顺序 文件 写 数据 。 是 从 文件 名 指定 的 顺序 文件 第 n 个 
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字 节 开始 写 数据 。 

这 里 文件 名 指定 的 文件 必须 是 用 OPEN 命 令 打开 的 文 
件 。 若 无 Bn 这 个 选择 项 ， 则 从 第 0 个 字 节 开始 写 。 

当 您 想 把 一 些 数据 写 到 磁盘 文件 之 前 ， 您 必须 使 用 WR 
ITE 命 令 。 当 您 使 用 了 WRITE 命令 之 后 ，PRINT 语 名 所 输 
出 的 数据 邦 会 被 写 人 磁盘 顺序 文件 中 。 而 不 会 输出 给 屏幕 。 

如 果 您 不 再 想 把 数据 输出 给 顺序 文件 ， 您 可 以 取 消 允 - 
RITE 命 令 。 执 行 任 何 DOS 命 令 都 将 取消 由 RITE 命 令 的 功 
能 。 而 且 INPUT 语 句 也 将 取消 丽 RITE 命 令 的 功能。 建议 
您 用 下 面 语句 取消 WRITE 命令 功能 。 

PRINT Dy$; 
这 是 因为 INPUT 语 句 的 字符 串 和 问号 将 做 为 最 后 一 个 数 据 
域 存 入 磁盘 文件 中 。 任 何 出 错 信息 也 将 取消 WRITE 命令 的 
功能 ， 并 且 也 将 出 错 信息 做 为 最 后 一 个 数据 域 在 入 磁盘 文件 
中 。 

对 例 1 我们 可 加 上 下 面 的 一 些 语句 ， 就 可 以 向 SJWJ 写 
一 些 数据 。 

210 PRINT D3$， “WRITE SJWJ7 

220 FOR I=1 TO 100 

230 PRINT 工 

240 NEXT 工 

250 PRINT “ABCDEFGHIJKLMNOP?” 

这 一 段 程序 的 作用 是 向 SJWJ 这 个 顺序 文件 写 入 从 1 到 
100 这 100 个 数 ， 然 后 再 写 人 A 到 了 这 些 字母 。 

请 注意 ， 如 果 您 打开 的 文件 是 原来 磁盘 上 有 的 数据 文 
件 。 当 您 用 PRINT 语 句 输出 数据 时 ， 所 输出 的 数据 将 会 把 
磁盘 上 原文 件 中 的 数据 覆盖 掉 。 这 祥 , 就 要 求 您 输出 ( 写 ) 的 数 
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据 要 比 原 先 在 文件 中 的 字符 要 多 ， 否 则 ， 将 会 出 现 文件 的 前 
一 部 分 是 新 写 人 的 数据 而 后 一 部 分 是 原先 文件 中 有 的 没有 改 
写 的 那 一 部 分 数据 的 混乱 情形 。 为 了 避免 这 种 情形 的 出 现 ， 
您 可 以 在 OPEN 命 令 之 前 先 使 用 DELETBE 命 令 将 这 个 文件 
删除 。 而 为 了 避免 机 删除 的 文件 不 在 磁盘 上 产生 FILE NOT 
FOUND 的 错误 信息 ， 可 以 在 DELETBR 命 令 之 前 使 用 另 外 
一 个 OPEN 命 令 防 止 产 生 错 误 信 息 。 
可 以 采用 下 述 方法 来 打开 正文 文件 〈 假设 文件 名 为 SJ- 
J) 

110 PRINT D$ “OPEN SJWJy?Y 

120 PRINT D$， “DELETE SJWJy” 

130 PRINT D$， “OPEN  SJWJ72 
在 这 个 例子 中 ， 第 一 个 ODPEN 命 令 是 当 SJWJ 了 文件 不 存在 时 ， 
建立 这 个 文件 。 避 免 下 面 删除 这 个 文件 时 没有 这 个 文 件 。 
DELETE 命 令 是 删除 这 个 文件 ， 避 免 发 生 上 述 的 混乱 情形 。 
第 二 个 OPEN 命 令 是 建立 一 个 新 的 空 的 文件 。 

例 2 是 对 例 1 做 了 上 述 修改 而 形成 的 程序 。 在 这 个 程序 
中 ， 我 们 用 一 个 变量 来 表示 文件 名 。 这 样 您 可 以 随机 地 给 数 


据 文 件 起 名 。 


5 REM C13201 

1Q 0DS$=CHRS(4) 

186 INPUT “FILENANE ? “3;NAIES 
116 PRINT DS; "OPEN ;NANES 
129 PRINT 0DS; "DELETE”;NAMES 
2608 PRINT 0D31 "0PEN” ;NANES 
218 PRINT DS; "WRITE” ;NANES 
226 FOR 1=1 T0 106 

236 PRINT 1， 

246 NEXT 1 

256 PRINT “ABCDEFGHIJKLYNOP” 
288 PRINT D$i"CL0SE” 

3808 END 
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四 、 读 显 序 文 伴 

格式 ，READ 文件 名 [，Bn] 

从 顺序 文件 中 读数 据 。 是 在 您 指定 的 文件 名 中 第 m 个 字 
节 处 开始 读 。 若 无 [Bn] 选 择 项 ， 则 从 文件 的 当前 位 置 开 始 
读 操 作 。 

格式 中 指定 的 文件 必须 是 由 OPEN 命 令 打 开 的 文件 。 

使 用 REAPD 命 令 后 ，BASIC 的 INPUT 语 句 和 GET 语 名 
均 从 您 指定 的 顺序 文件 中 读 取 数 据 而 作为 输入 数据 ， 而 不 是 
从 键盘 上 输入 数据 。 直 到 再 执行 一 个 DOS 命 令 或 者 是 出 错 后 
取消 READ 命 令 为 止 。 

INPUT 语 名 与 GET 语 名 的 区 别 是 : 

INPUTI 语 名 一 次 可 以 从 文件 中 读 入 若干 个 数 据 域 。 而 
G 了 ET 语句 一 次 只 能 从 文件 中 读 一 个 字符 。 

下 面 举 例 说 明 READ 命 令 的 用 法 。 


5 RENH C13282-1 

100 DS=CHRS (4) 

118 INPUT “FILENAKE TO READ 2“ 
128 PRINT DS7OPEN” ;NANES 

138 PRINT 0) READ” ;NAKES 

140 INPUT AS 

156 PRINT AS 

168 00T0 146 

176 END 


如 果 您 运行 这 个 程序 ， 并 输入 SJWJ 这 个 顺序 文件 名 ， 
就 会 将 SJWJ 这 个 文件 的 所 有 数据 都 显示 出 来 。 在 文件 内 的 
所 有 数据 被 输出 完 之 后 ， 您 将 会 看 到 END OF DATA 的 信 
息 ， 并 且 这 个 程序 将 在 140 语 句 处 停止 执行 (BREAK IN 
140) 。 解 决 这 个 错误 的 方法 有 多 种 ， 最 简单 的 方法 是 使 用 
ONERR GOTO 语 句 ， 使 得 这 个 程序 可 以 在 发 现 读 完 文件 
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中 数据 后 将 径 序 控制 转移 到 一 个 CLOSE 的 命令 中 。 对 例 3 
这 个 程序 ， 我 们 可 加 入 下 列 语句 


10 ONERR 


GOTO 200 


200 PRINT D$，《“《CLQOSEY 


程序 如 下 : 


5 


REH C13202-2 


16 ONERR 60T0 206 

1809 DS=CHRS(4) 

116 INPUT "FILENAKME TO READ ?3 “NANES 
129 PRINT DS "OPEN” ;NANES 

136 PRINT DS; “READ” ;NANES 

140 INPUT AS 

156 PRINT AS 

160 00T0 146 

176 END 

260 1F PEEK(222)=42 THEN 176 


例 4， 订 例 是 一 个 用 GET 命令 读 顺序 文件 数据 的 例 


子 。 


5 
10 
100 
110 
200 
219 
300 
310 
320 
330 
340 
354 
360 
408 
568 


REM C13293 

ONERR 6G0T0 509 

DS=CHRS(4) 
1NPUT ”FILENAME TO READ ?9“;， NANMES 
PRINT DS;"OPEN" ;NANHES 

PRINT DS; READ"” ;NAMES 

站 

GET AS 

IF AS=CHRS(13) THEN 350 
BS=BS+AS 

G0T0 319 

PRINT 8S 

00T0 306 

END 

IF PEEK(222)=42 THEN 49 
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虽然 是 用 GET 命 令 每 次 读 一 个 字符 ， 但 是 坟 个 程序 每 
次 输出 的 是 一 个 数据 域 。 这 是 因为 320 语 句 每 次 都 要 判断 所 
读 的 字符 是 否 回 车 符 (CHRS$(13)) 。 如 果 是 回 车 符 ， 则 表 
明 一 个 数据 域 的 结束 ， 转 到 350 语 名 打印 输出 8$ 这 个 字符 
串 ， 如 果 不 是 回 车 符 ， 则 将 刚 读 入 的 字符 〈As 中 的 ) 加 到 
8$ 这 个 字符 串 的 尾部 ， 直 到 遇 到 回 车 符 时 为 止 。 这 时 B$ 中 
的 字符 串 就 是 一 个 完整 的 数据 域 。 

五 、 给 顺序 文件 增加 数据 

您 要 想 给 磁盘 上 的 顺序 文件 增加 一 些 数 据 ， 首 先 您 必须 
把 文件 读 写 指 针 移 到 文件 末尾 ， 这 时 使 用 WRITE 命令 就 可 
以 在 文件 尾部 增加 新 的 数据 。 

如 果 打 开 的 文件 是 一 个 新 文件 或 者 文件 没有 数据 ， 可 以 
直接 使 用 WRITE 命令 来 增加 新 的 数据 。 如 果 打 开 的 文 件 是 
一 个 老 文 件 ， 就 应 该 使 用 APPEND 命令 来 打开 这 个 文件 。 

(也 可 以 用 OPEN 命 令 打 开 文 件 ， 然 后 移 位 置 指针 到 文件 
尾 。 只 不 过 这 样 比较 复杂 并 且 较 慢 。) 然后 再 用 双 RITE 命 
令 来 增加 数据 。 

APPEND 命 令 的 格式 

格式 ，APPEND 文件 名 [，Vn] 

这 个 命令 的 作用 是 打开 一 个 顺序 文件 并 且 置 当前 读 写 指 
针 到 文件 末尾 。 

在 APPEND 命 令 之 后 必须 使 用 “网 RITE2 命令 。 如 
果 您 使 用 READ 命 令 ， 您 将 会 得 到 END OF DATA 的 错 
误 。 

使 用 APPEND 命 令 的 例子 见 顺序 文件 使 用 举例 中 的 例 
1。 

六 、POSITION 命 命 
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格式 ，POSITION 文件 名 [，Rn] 

该 命令 把 文件 读 写 指针 向 前 移动 若干 个 数据 域 作 为 当前 
数据 域 。 实 际 上 是 指向 打开 的 顺序 文件 当前 数据 域 下 面 的 第 
N 个 数据 域 的 开头 。 使 您 能 够 从 这 个 位 置 开 始 读 写 顺序 文 
件 。 

如 果 您 省 略 Rn 项 或 者 n 为 零 时 ， 将 不 会 移动 文件 读 写 指 
针 。 如 果 您 指定 移动 数据 域 的 个 数 〈 即 n 的 值 ) 大 于 文件 中 
数据 域 的 个 数 ， 您 将 会 得 到 END OF DATA 的 错误 信息 。 

POSITION 命令 使 用 的 文件 必须 是 已 经 打开 的 顺序 文 
件 。 

由 于 POSITION 也 是 DOS 命 令 ， 所 以 使 用 该 命令 将 取 
消 READ 命令 和 WRITE 命令 的 功能 。 因 此 READ 命令 和 
WRITE 命令 应 使 用 在 POSITION 命令 之 后 。 

这 个 程序 10 语 名 到 80 语 句 建立 了 一 个 顺序 文 件 TEST 
ER， 并 向 这 个 文件 写 和 两 个 数据 TEST 0 和 TEST 1 并 将 这 
个 顺序 文件 关闭 。90 语 句 是 将 这 个 顺序 文件 打开 并 将 位 置 指 
向 文件 末尾 ,为 后 面向 这 个 顺序 文件 追加 数据 作 准 备 。100 语 
名 到 140 语 句 是 向 这 个 顺序 文件 增加 数据 后 并 关闭 这 个 顺序 
文件 。 这 个 程序 运行 后 ， 我 们 就 建立 了 顺序 文件 TESER， 
它 的 内 容 是 ; 

TEST 0.JTEST1.TEST2.TEST3。JTEST4。) 

例 2 .这 个 程序 可 以 读 出 顺序 文件 TESTER 的 数据 

七 、 顺 序 文 件 使 用 举例 

下 面 给 出 两 个 例子 ， 通 过 这 两 个 例子 可 以 了 解 怎 样 在 
BASIC 中 使 用 DOS 命 令 来 建立 并 检索 一 个 顺序 文件 。 
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SS REN C13294 

10 DS=CHRS(4) 

28 PRINT DS;"OPEN TESTER" 
39 PRINT DS;*DELETE TESTER” 
48 PRINT DS;"OPEN TESTER" 
56 PRINT DS"WRITE TESTER" 
68 PRINT “TESTB” 

78 PRINT “TEST1” 

86 PRINT DS;"CLOSE TESTER" 
98 PRINT DS;“APPEND TESTER” 
186 PRINT DS;"WRITE TESTER” 
113 FOR 1=32 T0 34 

128 PRINT "TEST“; CHRS (1 
138 NEXT 1 

149 PRINT DS;i"CLOSE TESTER” 
156 END 


SS REN C13265 

7 了 7 0NERR 60T0 166 

18 DS=CHRS (4) 

29 PRINT DS; “OPEN TESTER” 

98 PRINT 03; "POSITION TESTER,R2 ) 
48 PRINT D$; “READ TESTER” 

586 1NPUT AS 

46 PRINT D3S3 "POSITION TESTER,R1 
78 PRINT DS; “READ TESTER” 

88 INPUT 8BS,53S,D8S.ES,.DS 

38 PRINT DsS; “CLOSE TESTER” 

198 END 


这 个 程序 20 语 包 到 50 语 句 是 打开 TESTER 顺 序 文件 并 
读 遇 第 二 个 获 据 起 中 的 数据 TEST 2 。60 语 名 到 80 语 句 可 以 
读 出 这 个 序 文件 中 前 五 个 尖 据 域 中 的 数据 。 


锡 三 三 蓝 壬 机 文公 1 


随机 文件 是 由 一 个 一 个 记录 组 及 的 。 每 个 记录 中 的 数据 
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域 是 相等 的 。 在 同一 随机 文件 中 ， 每 个 记录 的 长 度 都 是 相等 
的 。 每 个 记录 及 多 可 定义 为 32767 个 字符 。 随 机 文件 的 记录 
从 文件 头 算 起 ， 被 依次 编号 为 0，1， 2 ，，……， 

在 随机 文件 上 进行 读 或 写 时 ， 只 能 对 某 个 记录 的 数据 进 
行 。 随 机 文件 的 建立 和 检索 方法 与 顺序 文件 相似 ， 所 不 同 的 
是 打开 (OPEN) 随机 文件 时 需要 指明 记录 的 长 度 ， 读 (R 
EAD) 和 和 写 (WRITE) 该 文件 时 也 需 指明 记录 号 。 

使 用 随机 文件 ， 可 以 快速 查找 、 增 补 、 修 改 其 中 任何 一 
部 分 内 容 。 用 起 来 比较 方便 ， 也 比较 常用 。 

一 、 打 开 巩 机 文件 

格式 ，OPEN 文件 名 ，Ln[，YVn] 

打开 或 建立 一 个 记录 长 度 为 Ln 的 随机 文件 ， 这 个 文件 
出 将 式 中 文件 名 指定 。 

La 的 nm 指出 了 记录 的 长 度 ， 其 取 值 范围 是 1~ 32767 中 的 
一 个 数值 。 

例 ，PRINT CHRS$(4)》 “OPEN SJWJ L1289 

打开 一 个 随机 文件 时 所 指定 的 记录 长 度 一 定 要 与 建立 这 
个 随 太 文件 时 的 记录 长 度 一 致 ， 否 则 的 话 ， 则 会 按 新 的 长 度 
参数 来 计算 文件 中 各 个 记录 的 位 置 ， 这 样 对 这 个 随机 文件 进 
行 读 写 时 就 会 造成 混乱 ， 甚 至 会 破坏 随机 文件 的 数据 。 怎 样 
才能 记 着 每 个 随机 文件 的 记录 长 度 而 不 致 于 引起 错误 呢 ? 我 
们 可 以 采用 把 记录 长 度 参 数 附 在 文件 名 之 中 的 方法 来 帮助 我 
们 记 沁 该 文件 的 记录 长 度 。 

例 ， 若 3SJW 了 这 个 随机 文件 的 记录 长 庆 是 100 个 字符 长 ， 
我 们 可 以 给 文件 这 样 起 名 。 

SJWJ，L100 

或 SJWJ-L100 
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或 SJWJ(L100) 

二 、 关 闭 随 机 文件 

格式 ，CLOSE [文件 名 ] 

这 个 命令 功能 和 顺序 文件 的 CLOSE 命令 相同 。 

三 、 写 随机 文件 

格式 ，WRITE 文件 名 [，Rn] [，Bn] 

这 个 命令 指出 要 写 的 随机 文件 ， 指 出 接受 数据 的 记录 和 
记录 中 写 第 一 个 字符 的 位 置 。 

[，Rn] 这 里 n 是 0~32767 之 间 的 一 个 数字 ， 它 指定 程 
序 中 要 写 起 始 记录 。 若 Rn 省 略 ， 则 从 记录 0 开始 写 。 

[，Bn] 这 里 n 是 在 指定 要 写 记 录 中 的 第 一 个 字符 的 位 
置 。〈 即 跳 过 的 字符 数 ) 。 若 Bn 省 略 ， 则 从 指定 记录 的 0 
字 节 开始 写 。 

这 个 命令 其 余 的 功能 和 使 用 中 的 注意 事项 与 顺序 文件 的 
“WRITE7” 命 令 完全 相同 。 

需要 说 明 的 是 这 个 命令 仅 是 指定 在 随机 文件 中 要 写 入 数 
据 的 位 置 ， 真 正 写 数据 是 通过 BASIC 中 的 PRINT 语 句 来 完 
成 的 。 

在 写 一 个 记录 时 ， 一 定 要 保证 写 入 数据 的 字符 个 数 不 能 
超过 该 随机 文件 的 记录 长 度 。 因 为 您 要 写 入 的 所 有 信息 都 可 
以 存 到 磁盘 上 ， 这 些 数据 从 当前 记录 位 置 开 始 写 ， 其 超出 该 
记录 长 度 的 那 部 分 数据 ， 将 会 写 到 下 一 条 记录 上 ， 这 样 将 破 
坏 第 二 条 记录 中 的 数据 。 

所 有 的 DOS 命 令 和 出 错 都 可 以 取消 WRITE 命令 的 功 
能 。 
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5 REM C13302 

10 DS$=CHRS (4》 

20 PRINT DS; "OPEN SJ:L20,L26” 
36 PRINT DS; "WRITE SJ:L20,R9” 
40 PRINT 9 

56 PRINT DS; "CLOSE” 

60 END 


上 面 这 个 例子 是 给 SJWJ:L100 这 个 随机 文件 的 第 4 条 


记录 写 入 ABCDEF1234XYZ 这 些 数 据 。 这 个 随机 文件 每 条 
记录 的 长 度 是 100 个 字符 。 

四 、 读 随机 文件 

格式 :READ 文件 名 [，Rn] [，Bn] 

这 个 命令 是 决定 下 一 个 INPUT 或 GET 语 句 从 文件 的 那 
个 位 置 开始 取得 字符 。 

这 个 命令 除了 在 “WRITE 命令 中 说 明 的 一 些 区 别 外 ， 
其 余 与 顺序 文件 的 “READ?” 命 令 的 功能 和 使 用 注意 事项 都 
完全 一 样 。 在 这 里 不 再 介绍 ， 请 参阅 前 面 。 

五 、 随 机 文件 应 用 举例 

这 里 向 您 介绍 一 个 使 用 随机 文件 的 例子 ， 用 这 个 程序 ， 
可 以 读 、 修 改 、 加 入 一 些 记录 和 显示 这 个 随机 文件 中 的 所 有 
记录 。 不 过 ， 在 您 第 一 次 使 用 这 个 程序 之 前 ， 您 应 先 用 下 面 
这 一 小 段 程序 建立 一 个 随机 文件 。 
REM C13302 
10 D$=CHRS(4) 
20 PRINT D$;i “OPEN SJ: L20，L20” 
30 PRINT D$; “WRITE SJ:; L20， 及 O” 
40 PRINT 0 
50 PRINT Pfyy “CLOSE? 


如 果 没 有 上 面 这 一 段 程序 ， 热 行 下 面 例子 中 的 程序 时 ， 
293 


Cn 


己 


会 产生 END OF DATA (数据 已 完 ) 的 错误 。 当 然 您 也 可 
以 将 这 段 程序 合并 到 下 个 程序 中 ， 这 样 用 起 来 会 更 方便 。 
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5 REH C13302-1 

10 D$=CHR(4) 

106 PRINT DS; "0PEN 3J:L20,L20” 

116 PRINT D3S; “READ SJ:L29,R0” 

128 INPUT “LAST RECORD NUNMBER :”;K 

138 PRINT DS 

200 CALL -936 

218 PRINT: PRINT “RANDOMN-ACCESS FILE NENU” 
220 PRINT 


238 PRINT “1 =READ A RECORD” 
246 PRINT “2 = ADD A RECORD” 
250 PRINT “3 = CHANGE A RECORD” 
260 PRINT "4 = LIST ALL RECORD” 
278 PRINJ 了 "5 = STOP“: PRINT 


288 [INPUT “WHICH: “;C 

290 ON C 00SUB 1069 ,28000 ,3000 ,4000 ,5000 

3080 60T0 200 

10060 REH 名字 和 人 READ 字 健 中 如 

18018 CALL -936 

1020 PRINT: PRINT “READ A RECORD": PRINT 

1030 INPUT “WHICH RECORD NUNMBER ( 6 T0 
STOP) ”3;R 

1646 IF R 1 THEN 209 

19586 IF R > THEN 1000 

1100 PRINT DS; ”READ SJ:L20,R";R 

1110 INPUT BS 

1120 PRINT DS 

1200 PRINT: PRINT 8S$ 

12106 00T0 1030 

2008 REH :sz 闻 $ ADD A RECORD 伴 闻 ? 宁 

20610 [CALL -936 

2020 PRINT: PRINT “ADD A RECORD “: PRINT 

2030 PRINT “NEXT RECORD NUMBER =”;M + 1 

20406 INPUT “PRESS [RETURN] NOW TO STOP 
ADDING" ;8S 

2056 IF 8$=" ”THEN 200 

2199 PRINT D3; "BRITE SJ:L26,R ;+ 1 

2110 PRINT 8S 

2126 i=i+1 

2130 PRINT DS3; “WRITE S:L28.RO0” 


2140 PRINT 1 
2150 PRINT DS$ 
2260 6010 2030 


3060 REH 冰 #23 CHANGE A RECORD 他 全 训 各 

3610 CALL -936 

3026 PRINT: PRINT “CHANGE A RECORD":， PRINT 

3036 INPUT “CHANGE WHICH RECORD (6 TO STOP)” 

3040 IF RKI THEN 206 

30650 IF R?H THEN 3016 

3100 PRINT D$; "READ SJ:L26,R";R 

3110 1NPUT BS 

3120 PRINT DS$ 

32006 PRINT: PRINT BS 

33060 PRINT “ENTER THE NEW DATA” 

3316 PRINT ”(PRESS [RETURNJ NOW TO CANCEL 
CHANGES)": PRINT 

3320 1NPUT (Cs$ 

3338 IF CS>"”THEN 3406 

3346 PRINT “RECORD “RUNCHANGETYT1L” 

3356 60T0 3638 

3466 PRINT D5) WRITE SJ:L26,R“;R 

3419 PRINT CS 

3426 PRINT D3 

3438 00T0 3636 

4080 REH $sh$ LIST ALL RECORD 站 下 字 

4618 CALL -936 

4029 PRINT:， PRINT “LIST ALL RECORD "PRINT 

4930 R = 允 

4109 R = Rd+ 1 

4119 IF R>KH THEN 4480 

4120 PRINT DS; "READ SJ:L26,R";R 

41386 1NPUT BS 

4146 PRINT “RECORD NUKBER 盖 “;R 

41506 PRINT BS3 

4269 00T0 4196 

4469 PRINT DS 

4416 PRINT:， PRIRT “*$ RND~OPF-~FILE 全 各” 

4429 PRINT “PRESS RETURN TD CONTINUBE”; 

443G6 [NPUT BS 

4448 600T0 200 
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65606806 REH 首 剖 可 训 STOP 误 衣 说 本 
5016 PRINT DS$; "CLOSE” 

5020 CALL - 936 

5100 FOR 1=1 T0 24: PRINT : NEXT 1 
5200 PRINT “PROGRAMMMH COMPLETE ,” 
6000 END 


上 面 这 个 程序 的 100~ 130 语 句 是 打开 SJ:L20 这 个 数据 
文件 〈100 语 句 ) 读 0 号 记录 (110 语 句 ) ， 并 要 您 输入 一 个 
数字 作为 最 后 记录 号 。130 语 名 作用 是 结束 读 记 录 命 令 。200 
语句 是 清 屏 幕 。 

210~280 语 句 是 在 屏幕 上 给 出 一 个 菜单 ， 您 可 以 通过 输 
入 1-5 这 五 个 数字 中 的 某 一 个 数字 来 选择 程序 功能 。 选 1 
是 读 一 条 记录 ， 选 2 是 追加 一 条 记录 选 3 是 修改 一 条 记 
录 ， 选 4 是 将 所 有 记录 在 屏幕 上 列 出 来 : 选 5 是 结束 这 个 程 
序 。 

290 语 句 是 一 个 多 问 转 子 语 句 ， 它 根据 您 的 选择 转 去 执 
行 不 同 的 子 程序 。 

300 语 名 是 一 个 无 条 件 转移 语句 ， 其 作用 是 当 您 的 输 入 
的 数字 大 于 5 或 者 小 于 1 时 ， 转 到 200 语 句 去 执行 ， 重 新 显 
示 菜 单 ， 让 您 重新 输入 数字 进行 选择 。 

1000~ 1210 语 句 是 读 一 条 记录 的 子 程序 。 这 段 程序 先 清 
屏幕 ， 然 后 要 您 输入 起 始 记录 号 ， 并 判断 您 输入 的 记录 号 是 
否 有 效 。 若 有 效 ， 则 读 这 条 记录 并 在 屏幕 上 显示 这 条 记录 。 
然后 返回 到 1030 语 名 重新 执行 这 段 程序 ， 要 您 再 次 输入 要 读 
的 记录 号 …， 就 这 样 重复 下 去 。 当 提示 您 输入 要 读 的 记录 号 
时 ， 您 如 果 不 想 再 继续 读 记 录 的 话 ， 输 入 0 即 可 退出 读 记 录 
的 子 程序 ， 返 回 到 菜单 处 继续 执行 程序 。 
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2000 一 2200 语 句 是 追加 记录 子 程序 。 这 段 程序 清 屏幕 后 
将 显示 出 您 要 追加 的 记录 号 和 按 “./” 键 停止 追加 记录 的 提 
示 信 息 。 这 时 ， 您 如 果 想 追加 记录 ， 则 输入 和 您 要 追加 的 记录 
内 容 即 可 追加 一 条 记录 。 如 果 您 不 再 想 追 加 记录 的 话 ， 当 出 
现 提示 信息 时 ， 您 打 入 “./” 即 可 退出 追加 子 程序 ， 返 回 到 
菜单 处 继续 执行 程序 。 

3000~ 3430 语 名 是 修改 记录 的 子 程序 ， 这 段 程序 清 屏 后 
要 称 输入 要 修改 的 记录 号 ， 接 下 来 是 读 您 要 修改 的 记录 并 将 
这 条 记录 显示 出 来 。 然 后 要 您 输入 这 条 记录 要 修改 的 内 容 并 
写 和 记录。 这 样 就 完成 了 对 记录 的 修改 。 当 修改 完 一 条 记录 
之 后 ， 又 要 求 您 输入 要 修改 的 记录 号 ， 这 时 ， 如 果 您 还 要 继 
续 修改 ， 只 有 输入 要 修改 的 记录 号 就 可 以 继续 修改 记录 ; 如 
果 您 不 再 想 修改 记录 ， 只 要 输入 0 即 可 退出 这 段子 程序 ， 返 
回 到 菜单 处 继续 执行 程序 。 

4000 一 4440 语 句 是 列 出 所 有 记录 的 子 程序 。 这 段 程 疗 清 
屏 后 ， 将 记录 号 定 为 1 ， 并 且 将 这 条 记录 在 屏幕 上 显示 出 
来 。 人 然后 将 记录 号 加 1， 继 续 读 下 一 条 记录 并 显示 出 来 ， 这 
样 重复 下 去 ， 直 到 所 有 记录 (由 这 个 程序 开始 时 ， 您 输入 的 
最 后 记录 号 指定 的 记录 为 最 后 记录 ) 都 被 显示 出 来 为 止 。 所 
有 记录 被 显示 完 之 后 ， 将 返回 到 菜单 处 继续 执行 程序 。 

5000~ 5200 语 句 是 停止 程序 运行 子 程序 ， 这 段 程序 先 关 
闭 已 打开 的 数据 文件 ， 清 屏 后 显示 出 程序 结束 的 提示 信息 并 
结束 程序 的 执行 。 


习题 十 三 


1。 什 么 是 顺序 文件 ? 
2， 什 么 是 随机 文件 ? 
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3。 在 顺序 文件 中 能 直接 移动 指针 到 某 个 指定 的 数据 上 
玛 ? 

4。 对 一 个 数据 文件 《顺序 文件 和 随机 文件 ) 处 理 完 
后 ， 是 否 一 定 要 关闭 ? 为 什么 ? 

5。 修 改 随 机 文件 应 用 举例 中 的 C13302- 1 程序 使 其 
能 随机 建立 ， 读 、 修 改 和 显示 一 个 随机 文件 。 《文件 名 是 哆 
机 输入 的 而 不 是 像 程序 中 固定 对 SJ: 上 20 这 个 数据 文件 进 行 
处 理 ) 。 

6。 建 立 一 个 学 生成 绩 档案 ， 其 数据 保存 在 随机 文件 中 ， 
并 能 查寻 ， 修 改 这 些 数据 。 


第 十 四 章 ”链接 程序 介 经 


本 章 介 绍 一 个 中 华 学 习 机 BASIC 的 实用 技术 一 一 链接 技 
术 。 


第 一 六 ”什么 是 链接 


在 BASIC 中 ， 您 者 想 连续 使 用 两 个 或 者 两 个 以 上 的 一 连 
串 程序 ,一般 情况 下 可 以 通过 多 次 用 LOAD 命 令 将 程序 装 入 ， 
用 RUN 命 令 运 行程 序 的 方法 来 完成 。 但 是 ,使 用 这 种 方法 有 
两 个 问题 : 一 是 每 运行 一 个 程序 ， 都 需要 人 工 干 预 ， 也 就 是 
每 次 都 要 人 将 程序 装 入 并 运行 。 这 主要 是 “RUN?” 这 个 语 
名 如 果 用 在 程序 中 ， 要 求 必须 吉 行 号 这 个 参数 ， 例 ， 

50 RUN 200 
否则 ， 将 认为 是 错误 的 。 当 然 RUN 命令 用 在 立即 方式 下 可 
以 不 带 行 号 这 个 参数 。 

二 是 用 这 种 方法 时 ， 只 能 使 用 本 程 库 中 产生 的 变量 ， 而 
不 能 使 用 其 它 程序 中 的 变量 。 这 是 因为 当 您 装 入 一 个 程序 时 
〈 用 LOAD 或 RUN) ， 将 先 清除 内 存 中 的 内 容 。 所 以 ， 当 
泣 八 一 个 新 程序 时 ， 上 一 个 程序 产生 的 变量 也 将 被 清 掉 。 

如 果 您 想 让 几 个 程序 自动 连续 执行 或 者 想 使 用 其 它 程序 
产生 的 变量 ， 您 可 以 通过 CHAIN 这 个 程序 (BASIC 中) 或 
命令 〈 整 数 BASIC 中 来 实现 。CHAIN 的 功能 是 将 BASIC 
的 控制 权 从 一 个 BASIC 程 序 交 给 男 一 个 BASIC 程 序 。 也 就 
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是 说 将 两 个 BASIC 程 序 链 接 起 来 。 


秽 二 节 ”两 个 BASIC 程 序 的 链接 


链接 两 个 BASIC 程 序 ， 需 要 借助 于 “CHAIN?” 这 个 机 
器 语言 程序 。 这 个 CHAIN 程 序 要 求 在 要 链接 程序 的 盘 上 。 

具体 做 法 如 下 : 

1。 将 “CHAIN2” 这 个 机 器 语言 程序 装 入 内 存 某 一 区 域 
中 。 
例 ，20 PRINT CHRS$(4) “BELOAD CHAIN， 
A520? 

2。 用 CALL 语 句 调 用 机 器 语言 子 程序 并 给 出 要 链接 的 
程序 名 宇 。 

例 ， 30 CALL 5204TWO)” 

需要 说 明 的 是 要 链接 的 第 二 个 程 序 必 须 和 “CHAIN? 
程序 在 同一 个 磁盘 上 。CALL 语 句 中 的 地 址 (如 520) 与 后 
面 的 引号 之 间 不 能 有 空格 。 并 且 实 现 程序 链接 的 二 个 语句 必 
须 紧 挨 在 一 起 ， 一 般 可 放 在 程序 的 末尾 。 

下 面 举 例 说 明 怎 样 实现 链接 。 有 二 个 程序 , 一 个 程序 名 是 
ONE， 另 一 个 程序 名 是 工 WO。 

例 : 程序 ONE 的 清单 如 下 ， 


REM C14201 

10 INPUT“A=?”; 人 

20 INPUT“B=?”; 了 

30 PRINT CHR$( 4 ) ; “BLOAD CHAIN，A520” 
40 CALL 520“TWO 

50 END 


一 


己 
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程序 工 WO 的 清单 如 下 : 


5 REM C14202 

10 INPUT“C=?? C 

20 PRINT“A 一 ”; 人 

30 PRINT“B=?”; 了 

40 D=A+B++C 

50 PRINT“D=”; D 

00 END 

运行 程序 DONE 。 当 运行 到 30 诸 句 时 , 执行 DOS 的 BLOAD 
命令 ， 把 CHAIN 装 入 到 内 存 520 单 元 开始 的 内 存 区 域 中 。 运 
行 到 40 语 名 时， 系统 转 去 运行 CHAIN 程序 ， 这 个 程序 保 
留 程序 ODNE 中 的 变量 A 和 B 的 值 ， 把 程序 工 WO 装 入 内 存 
并 运行 之 。 在 程序 工 WO 中 用 了 程序 ONE 中 的 变量 A 和 B 
的 值 。 


第 三 节 ”两 个 整数 BAsIC 程 序 的 链接 


由 于 在 整数 BASIC 中 可 以 使 用 DOS 的 CHAIN 命 令 ， 所 
以 链接 两 个 整数 BASIC 程 序 是 比较 简单 的 。 只 要 使 用 下 面 的 
命令 格式 即 可 。 

格式 ，PRINT CHR$ (4) ， “CHAIN 第 二 个 程序 
交 

现在 还 以 上 节 的 例子 来 说 明 怎样 链接 。 在 整数 BASIC 下 
的 程序 与 BASIC 中 的 程序 略 有 不 同 ， 两 个 程序 的 清单 如 下 ; 

程序 ONE 的 清单 


5 REM C14301 
10 INPUT “A=?”，A 人 
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20 INPUT “B=??，B 

30 D$=CHR4(4) 

40 PRINT D$;i “CHAIN TWO 
50 END 


程序 TWO 的 清单 


5 REM C14302 

10 INPUT“C=??，C 
20 PRINT “A=”; A 
30 PRINT “了 B=”; 了 
40 卫 = 一 A 十 了 B 十 CC 

50 PRINT “D=”; D 
0600 END 


运行 程序 ONE， 程 序 要 您 输入 A 和 了 B 的 值 ， 当 执行 到 40 
语句 时 ， 将 执行 DO 的 CHAIN 命令 。CHAIN 命 令 将 整数 
BASIC 的 控制 权 交 给 程序 了 TWO, 运行 TWO 程序 ， 并 将 ONE 
程序 中 产生 的 A 和 B 这 两 个 变量 带 到 工 WO 程 序 中 求 用 。 


第 四 节 ”链接 应 用 举例 


本 节 我 们 区 BASIC 程序 的 链接 为 例 ， 将 音乐 程 褒 和 画图 
程序 链接 起 来 ， 在 音乐 程序 中 调 画 图 程序 ， 在 画图 程序 中 调 
音乐 程序 ， 这 样 周而复始 地 循环 下 去 。 这 里 音乐 程序 用 的 是 
“送别 >， 画图 程序 用 的 是 在 高 分 辩 率 下 的 画 一 串 五 角 星 的 程 
序 。 所 不 同 的 是 在 两 个 程序 中 我 们 都 加 上 了 

PRINT CHR$4$ (4) ，“BLOAD CHAIN，A5202 

CALTL 520“Cl43017》” (或 CALL 520 “Cl143022》 
这 两 条 语句 。 使 用 这 两 条 语句 ， 一 定 要 保证 磁 盘 上 有 “CH 
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AIN” 这 个 二 进 制 文件 。 另 外 ， 在 C14302 程 序 中 ， 增 加 了 60 
语句 , 这 个 语句 的 主要 作用 是 退出 高 分 辩 图 形 方式 和 清 屏 幕 
这 两 个 程序 的 清单 如 下 : 


5 REH C14401 

10 DATA 128,160,152,110,128,.1186,95,255， 
114,160,95,110,114,110,128,.1686,192， 
110,171,110,152,160,171,116,192,110， 
171,255,.171,255 

26 DATA 128,160,152,110,128,116,95,200， 
102,110,114,160,95,160,128,255,128， 
i60,171,1160,152,110,146,260,205,110， 
192,255,192,166 

38 DATA 114,160,95,160,95,255,162,166， 
114,110,102,110,95,255,114,118,95,110， 
114,110,114,110,128,116,152,110,192， 
110,171,255,171, 166 

4 PPATA 128,160,152,110.128,116,95,260， 
162,110,114,160,95,116,114,110,128， 
255,128,160,171,110,152,110,140,260， 
205, 110,192,255,192,166 

42 DATA -99，-99 

56 READ X,Y 

55 IF X=-99 THEN 3 

56 PRINT CHRS (RND(1)*935+32); SPC(CLD) 

60 浊 SIC XY 

809 00T0 50 

938 PRINT CHRS (4);3“BLOAD CHALN AS29” 

106 (CALL 520"C14302” 

110 END 


5 REN C14402 

10 FOR [=1 T0 7 

20 HRGR: 8COLOR= 

25 FOR J=10 T0 166 STEP 28 

39 9+J,70 TO 160833476 T0 15+J,，139 
训 人 T0 85+J,138 T0 6+J,78 

498 NEXT 

5 FOR = 1 TO 268 
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60 TEXT: CALL=-936 

70 PRINT CHRS (4); BLOAD CHAIN,A520"” 
86 CALL 5206"C14301” 

30 END 


习题 十 四 


1。 怎 样 链 接 BASIC 程 序 ? 
2。 怎 样 链接 整数 BASIC 程 序 ? 
。 将 您 编写 的 学 生成 绩 档 案 程序 与 您 编写 的 音乐 程 赂 
二 


30 人 《 


附录 一 ”中华 学 习 机 命令 清音 


一 、BASIC 命 命 
3 下 也 个 
功能 ， 将 等 号 右边 表达 式 的 值 荆 给 左边 的 变量 。LE 二 可 
省 略 。 
格式 : [CET] 变 基 [下 标 ] = 表达 式 
2。GOTO 
功能 ， 转 癌 指 定 的 行 号 去 执行 程序 。 
格式 ，GOTO ” 行 号 
3。 了 IF 语句 
功能 ， 根 据 给 出 的 条 件 值 决定 执行 的 语句 或 转向 指定 的 
行 号 开始 执行 程序 。 
格式 : IF 表达 式 THEN 语句， 语句 … 
IF 表达 式 THEN 行 号 
IF 表达 式 GOTO 行 号 
4。 下 OR.…NEX 伙 
功能 ， 循 环 执行 FOR 与 N 了 EXT 之 间 的 程序 行 。 
格式 : FOR 变量 = 算术 表达 式 1 TO 算术 表达 式 2 
[STEP 算术 表达 式 3] 
NEX 人 [算术 变量 ] [ {， 算 术 变 量 } ] 
5 。READ 和 DATA 
功能 : 将 DATA 语 名 所 给 的 数据 序列 中 的 数据 依次 赋 给 
READ 语 句 中 的 各 个 变量 。 


305 


格式 : READ 变量 名 [ {， 变 量 名 } ] 
DATA 数据 [ {， 数 据 》 ] 

6。RESTORE 

功能 ,将 DATA 效 据 表 中 的 指针 指向 表 中 第 ~- 个 汝 据 ， 
使 DATA 的 数据 可 以 蛋 半 使 用 。 

格式 ，RESTORE 

7。GOSURB 

功能 : 转 到 捐 定 行 号 为 首 的 BASIC 子 程序 上 去 执行 程序 。 

格式 ，GOSU8B 行 号 

8。ON an GOTO 或 ON nm GOSUB 

功能 ， 瘟 据 a 的 秆 ， 选 择 第 na 个 行 号 ， 使 计算 机 转向 该 行 
号 或 该 行 号 开始 的 子 程序 。 

格式 ，ON nm GOTO 行 号 1 {， 行 号 2 } 

ON nm GOSUB 行 号 1 {， 行 号 2} 

9。JINPUT 

功能 ， 从 当前 输入 设备 上 接收 各 种 类 型 的 数据 ， 依次 赋 
给 其 后 的 变量 。 

格式 ，INPUT [提示 信息 ] ， 变量 [ {， 变 量 } ] 

10。GET 

功能 ， 从 当前 输入 设备 上 接收 一 个 字符 或 一 位 数字 冉 给 
变量 。 

格式 ，GET 变量 名 

11。PRINT 

功能 ， 将 各 种 数据 或 各 种 表达 式 的 值 输出 到 屏幕 上 或 打 
印 机 上 。 

格式 ，PRINT [表达 式 ] [ {， 表达 式 ) ] .[，] 或 
[; ] 
306 


12。SPC 

功能 ， 以 上 一 次 输出 的 最 后 一 个 字符 位 置 为 基准 ， 跳 过 
若干 空格 ， 空 格 数 由 表达 式 值 确定 。 

格式 ，SPC (算术 表达 式 ) 

注 ，SPC 是 一 个 函数 ， 用 在 PRINT 语 名 中。 

13。VTAB 

功能 ,将 光标 移 到 由 算术 表达 式 值 确定 的 行 上 。 

格式 ，VTAB (算术 表达 式 ) 

14。HTAB 

功能 : 将 光标 移 到 由 算术 表达 式 值 确定 的 列 上 。 

格式 ，HTAB (算术 表达 式 》 

15。TAB 

功能 ， 在 当前 行 上 以 最 左 列 《〈 第 一 列 ) 为 基准 ， 将 光标 
转 到 指定 的 列 位 置 ， 列 位 置 由 算术 表达 式 值 确 定 。 

格式 ，TAB (算术 表达 式 ) 

16。-POS 

功能 ， 送 回 当前 光标 所 在 的 列 位 置 。 

格式 ，POS (表达 式 ) 

17。NORMAL 

功能 ， 置 显示 器 为 正常 显示 方式 ， 即 “《 黑 底 白 字 ”。 

格式 ，NORMAL 

18。INVERSE 

功能 ， 置 显示 器 为 反 相 显示 方式 ， 即 “和 白 底 黑 字 ?” 。 

格式 ，INVERSE 


19. FLASH 
功能 ， 置 显示 器 为 内 烁 方式 。 
格式 ，FLASH 
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20。DIM 
功能 ， 定 义 一 个 数据 矩阵 〈 数 组 )。 
格式 ， DIM 变量 名 〈 下 标 ) [ {， 变 量 名 (下 标 )} ] 
21。DEF FN 
功能 ， 人 允许 用 户 在 程序 中 自己 定义 一 个 函数 。 
格式 ， DEF FEN 变量 名 〈 实 型 算术 变量 ) = 算术 表 
达 式 。 

FN 变量 名 (六 ) 
22。 了 PEEK 
功能 ， 读 一 个 内 存单 元 的 内 容 。 
格式 ，PEEK (X) 
23。POKE 
功能 : 给 一 个 内 存单 元 写 和 数据。 
格式 ，POKE X，Y 
24。LOMEM: 和 HIMEME: 
功能 ， 设 置 BASIC 程 序 工作 区 域 的 下 ， 上 限 地 址 。 
格式 ，LOMEM :X 

HIMEM:X 
25。FRBR (X) 
功能 ， 轰 放 数 据 区 中 的 无 用 单元 ， 进 行 整理 后 追 回 空 困 

的 内 存 空 间 。 
格式 ，FRE (和 X) 
26。SPEED 
功能 ， 改 变 计算 机 到 I/O 设 备 之 间 字 符 的 传送 速度 。 
格式 ，SPEED = 算术 表达 式 
27。CALL 
功能 ， 调 用 机 器 语言 子 程序 。 
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格式 ，CALL ”算术 表达 式 

28。 了 TRACE 

功能 ， 跟 踪 程 序 的 执行 ,将 执行 过 的 行 号 显示 在 屏幕 上 。 

格式 ，TRACE 

29。UNTRACPE 

格式 ，UNTRACE， 

30。WAIT 

功能 ， 使 程序 在 执行 过 程 中 处 于 等 待 状态 ， 直 到 某 个 指 
定单 元 的 值 变化 成 满足 一 定 要 求 时 程序 才能 继续 执行 。 

格式 ，WAIT 入 ,Y 

WAIT X,Z,Y 

31。POP 

功能 ， 与 RETURN 语 名 作用 相似 ， 但 POP 不 返回 到 
GOSUB 的 下 一 条 语句 上 ， 而 是 继续 执行 POP 的 下 一 个 语句 。 
并 且 使 堆栈 顶部 的 地 址 被 弹出 。 

格式 ，POP 

32。PDL (ny) 

功能 ;此 国 数 可 读 取 *a (Cn= 0 一 '3) 游戏 控制 器 括 杆 
位 置 量 的 编码 值 。 

格式 ，PDL (ny) 

33。ONERR GOTO 

功能 ， 出 错 后 转 阿 处 理 程序 。 

格式 ，ONRERR GOTO 行 号 

RESUME 
34。USR (X) 
功能 ， 这 个 国 数 能 将 算术 表达 式 X 的 值 送 到 机 器 语言 子 
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程序 中 去 进行 加 工 处 理 。 

格式 ， USR (和 ) 

35。GR 

功能 ， 置 低 分 辩 率 绘图 方式 。 

格式 ，GR 

36。COLOR 

功能 ， 置 低 分 辩 率 图 形 的 颜色 。 

格式 ，COLOR =n 

37。SORN (X,Y) 

功能 ， 该 函数 返回 低 分 辨 率 图 形 方式 下 ， 〈X,Y) 为 坐 
标点 的 颜色 值 。 

格式 ，SORN (X,Y) 

38。PLOT 

功能 ， 在 低 分 辩 率 作 图 方式 下 ， 在 〈X,Y) 位 置 画 一 个 

格式 ，PLOT  X,Y 

39。HELIN 

功能 :在 低 分 辩 率 作 图 方式 下 ， 以 〈(XlY) 为 起 点 ， 
以 〈 和 2,Y) 为 终点 在 屏幕 上 绘制 一 条 水 平 线 。 

格式 ，HLIN XI，X2 AT Y 

40。VLIN 

功能 ， 在 低 分 辩 率 作 图 方式 下 ， 以 〈X,Y1) 为 起 点 ， 
以 〈X,Y2) 为 终点 在 屏幕 上 绘制 一 条 垂直 线 。 

格式 ，VLIN Yl,Y2 AT 共 

41。 个 卫 X 代 

功能 ,由 低 分 辩 率 图 形 方式 或 高 分 辩 率 图 形 方 式 返 回 到 
满 屏 文本 显示 方式 。 
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格式 ，TEXGT 

42。HGR 

功能 ， 置 屏幕 为 高 分 辩 率 图 形 与 文本 显示 温 合 方式 。 显 
示 第 一 页 。 

格式 ，HGR 

43。HGR2 

功能 ， 同 HGR 一 样 ， 但 显示 第 二 页 。 

格式 ，HGR2 

44。HCOLOR 

功能 ， 置 高 分 辩 率 图 形 的 颜色 。 

格式 ，HCOLOR =n 

45。HPLONT 

功能 ， 在 高 分 辩 率 图 形 方 式 下 画图 。 

格式 ，HPLOT  X,Y 

46。DRAW 

功能 : 在 屏幕 上 显示 第 n 个 定义 的 向 量 表 中 的 图形 。 

格式 ，DRAW mn [AT X,Y] 

47。XDRAW 

功能 ， 同 DRA 玛 命令， 只 不 过 图 形 颜色 是 DRA 食 命令 
的 颜色 的 补 色 。 一 般 用 来 按 除 一 个 图 形 。 

格式 ，XDRAW n [AT X,Y] 

48。ROT 

功能 ， 设 置 向 量 绘图 图 形 的 旋转 角度 。 

格式 ，ROT = m 

49。SCAL BE 

功能 ， 决 定向 量 图 形 的 比例 大 小 。 

格式 ; SS 人 AT B = 丘 
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甘 PLOT TO 和 X,Y 
HPLOT XlYL TO X2,Y2[ {TO Xi,Yi) 1] 
HPLOT TO X2,Y2E {TO XiYi ] 
50。LOAD 
功能 :将 程序 从 磁盘 上 或 磁带 中 装 入 内 存 。 
格式 ，LOAD (磁带 ) 
LOAD 文件 名 〈 梯 盘 ) 
51。SAVE 
功能 :将 内 存 中 的 程序 在 人 磁带 或 磁盘 中 。 
格式 ，SAVER 〈 磁 带 ) 
SAVE 文件 名 《磁盘 ) 
52。RUN 
功能 ,和 返 行 BASIC 程 序 。 
格式 : RUN [ 行 号 ] 


53。NEW 

功能 ， 清 除 当 前 内 存 中 BASIC 程 序 及 所 有 变量 。 
格式 ，NEW 

54。IIST 


功能 ， 列 出 当前 内 存 中 的 BASIC 程 序 清单 。 
格式 :LIST  [ 行 号 1] [， 行 号 2] 
55。HOME 

格式 ， HOME 

56。STOP 

功能 : 终止 程序 执行 。 

格式 ，STOP 

57。END 
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切 能 ， 使 程序 终止 执行 。 

格式 ， END 

58。CONT 

功能 ， 使 程序 从 终止 处 继续 执行 。 

格式 ，CONT 

59。IN * n 

功能 ;选择 一 个 输入 通道 ， 后 继 的 INPUT 语句 从 选 定 
的 输入 通道 接收 数据 。 

格式 ，IN * n 

60。PR * n 

功能 : 选择 一 个 输出 通道 ， 后 继 的 输出 语 名 向 选 定 的 输 
出 通道 发 送 数 据 。 

格式 ，PR * n 

61。LG 

功能 ， 进 入 Logo 子 集 。 

格式 : LG 

二 、 与 本 书 有 关 的 DOS 命 兮 

1。OPEN 

功能 ， 打 开 一 个 数据 文件 。 

格式 : OPEN 文件 名 [，Vn] 顺序 文件 ) 

OPPEN 文件 名 ，Ln [，Vn] 《〈 随 机 文件 ) 

2。CLOSE 

功能 : 关闭 数据 文件 。 

格式 ，CLOSE [文件 名 ] 

3。WRITE 

功能 : 写 数据 文件 。 

格式 ，WRITR 文件 名 [，Bn] 《顺序 文件 ) 

313 


太 RITE 文件 名 [,Rn][,Bn] 〈 随 机 文件 ) 
4。READ 
功能 ， 读 数据 文件 。 
格式 ， READ 文件 名 [，Bn] (顺序 文 件 ) 
READ 文件 名 [,Rn][,Bn] 〈 随 机 文件 ) 
5。APPEND 
功能 : 打开 一 个 顺 席 文 件 并 把 当前 指针 指向 文件 末尾 。 
格式 ，APPEND 文件 名 [，Vn] 
6。POSITION 
功能 ， 在 上 序 文件 中 ， 从 当前 位 置 向 前 移动 几 个 域 作 为 
当前 位 置 。 
格式 ，POSITION 文件 名 [，Rn] 
7。BSAVE 
功能 ， 传 送 内 存 中 任意 起 始 位 置 为 AA， 长 度 为 二 的 二 进 
制 信息 到 磁盘 文件 。 
格式 ，BSAVE 文件 名 ，An，Ln [，Vn] 
8。BLOAD 
功能 ， 从 盘 上 传送 二 进 制 信息 到 内 存 。 
格式 ，RLOAD 文件 名 [，An] [，Vn] 
9。 BRUN 
功能 ， 传 送 指定 的 二 进 制 文体 到 内 存 并 运行 该 程序 。 
格式 ，BRUN 文件 名 [，An] [，Vn] 


314 


附录 二 “ASCII 码 表 


we 显示 字 键 医 光 显示 字 刍 
0 CTRI-G@ 24 (cancel line)| CTRI 一 和 
工 CTRL-A 25 CTRI 立 
2 CTRL-B 20 CTRL-Z 
3 CTRL-C 7 了 SC 
4 CTRL-D 28 n.a。 

5 CTRL-E 29 CTRL- 
7 “| (bel) CTRIL-G 30 CTRL- 和 人 
8 | (backspace) | cTRL-H | 31 n.a， 
或 < 32 Space sFace bar 
9 CTRL-I 33 1 ! 
10 (lineSeed) CTRL-J 34 生 
11 CTRI-K 35 | 非 井 
12 CTRIL-E 36 外 争 
13 /carriage CTRI-~M 37 站 %% 
Teturn) 38 已 & 
14 CTRL-N 的 2 
15 CTRL-O 40 ( ( 
16 CTRL-P 41 ) ) 
17 CTRL-Q 42 帮 可 
18 CTRL-R 43 十 十 
19 CTRL-S 44 
委 生 
20 CTRL-T 攻 二 | __ 
21 (forward CTREL-U 46 
Space) 或 这 。 。 
47 1 / 
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《 续 ) 


2DIOFHDPDP> 人 XRD 一 一 《 人 


30 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
97 
97 
98 
99 
100 
101 
102 
103 
104 
105 


ssSggs 


2 


〈 续 》 


RN 一 一 ( 癌 
针 
I 
园 六 RN 一 一 关 
| 
Sa 
吕 上 | 咏 居 从 员 基 员 六 三 
忆 人 
部 
|eDnmmtwm 和 aa> 和 
| 
线 | 
人 
呈 | 
Le 
mm 个 
秆 赴 受 - 芝 芝 交 浊 
过 9 


17 


了 


附录 三 ”BASIC 错误 信息 


BAD SUBSCRIPT ERROR 

使 用 数组 元 素 时 ， 所 使 用 的 下 标 不 正确 ， 或 者 是 下 标的 
值 超过 了 定义 的 容量 。 错 误 代 码 107。 
CAN' 人 CONTINUE ERROR 

想 去 执行 一 个 不 存在 的 程序 ， 或 在 发 生 错误 之 后 ， 或 者 
已 经 改过 程序 后 ， 想 继续 执行 程序 。 
DIVISION BY ZERO ERROR 

用 0 做 除数 。 错 误 代 码 133。 
FORMULA TOO COMPLEX ERROR 

如 备 IF String THEN 语 名 已 经 执行 了 两 次 以 上 ， 
就 会 出 现 这 个 错误 信息 。 错 误 代 码 191。 
ILLRGAL DIRECT ERROR 

使 用 INPUT，DEF FN，GET 或 DATA 语句 在 直接 

《立即 方式 ) 式 中 。 

ILLEGAL QUANTITY ERROR 

在 绘图 语句 中 ， 所 用 字符 串 函 数 ， 数 值 函 数 的 数值 超过 
范围 。 错 误 代码 53。 
NEXT WITHOUT FOR ERROR 

执行 一 个 没有 FOR 对 应 的 NEXT 语 铝 。 错 误 代 码 0 。 
OUT OF DATA ERROR 

执行 READ 语 名 时 ，DATA 语 句 所 提供 的 数据 已 读 完 ， 
设 有 数据 可 读 了 ， 错 误 代 码 42。 
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OUT OF MEMORY ERROR 

下 面 这 些 情 况 都 会 发 生 这 种 错误 ， 程 序 太 大 :变量 太 多 ; 
FOR 循环 的 层次 超过 10 层 ， 子 程序 的 妓 次 超过 24 个 层次 ， 括 
号 的 次 度 超过 36 层 ， 设 置 的 HIMEM: 定 的 太 低 或 LOMEM， 
定 的 太 高 等 等 。 错 误 代 码 77。 
OVERFLOW ERROR 

溢出 错误 ， 计 算 后 的 结果 太 大 超出 了 计算 机 能 够 接受 的 
范围 是 -1.7E+38~1.7E+38 之 间 。 错 误 代 码 69。 
REDIM'D ARRAY ERROR 

重复 定义 数组 错 。 

用 一 售 DIM 语 句 来 改变 一 个 已 经 定好 维 数 和 矩阵 的 维 数 。 
错误 代码 为 120。 
RETURN WITHOUT GOSUB ERROR 

省 行 一 个 没有 SOSUB 与 之 对 应 的 RETURN 语 名 。 错 误 
代码 22。 
STRING TGCO LONG ERROR 

字符 串 连 接 后 ， 所 得 字 串 的 长 度 超过 255 个 字 符 。 错 误 
代码 176。 
SYNTAX ERROR 

语法 错误 ， 在 拼 字 的 时 候 ， 或 者 是 标点 的 使 用 ， 次 序 不 
对 ， 在 算术 式 中 漏 掉 括 号 , 或 一 行 中 有 不 合适 的 字符 … 等 等 。 
错误 代码 16。 
TYPE MISMATCH ERROR 

数据 类 型 错 ， 对 字符 变量 使 用 数值 或 对 数值 变量 使 用 字 
符 : 运算 符 两 边 的 数据 类 型 不 一 样 等 都 会 发 生 这 种 错误 。 鲁 
误 代 码 163。 
UNDEEF“D FUNCTION ERROR 
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使 用 了 未 定义 函数 。 错 误 代码 224。 
UNDEE'D STATEMENT ERROR 


在 GOTO,GOSUB 或 THEW 中 使 用 一 个 不 他 在 的 行 号 。 
错误 代码 90。 


对 于 概念 性 题目 ， 一 般 只 提供 阅读 范围 ， 有 一 部 分 给 出 
参考 答案 ， 对 于 编程 题目 ， 答 案由 磁盘 和 磁带 提供 ， 在 这 里 
只 给 出 文件 名 : 


XNNNNN 
es 


L 
章 号 


1。 见 第 一 节 
2。 见 第 三 节 中 BASIC 程 序 结构 2 (1) 
3。 见 第 四 节 中 一 、 二 两 部 分 
4。 见 第 四 节 中 第 三 部 分 的 说 明 第 (5) 点 
5。(1)， 27 (4) ZHONGDHEUA 
(2) ZHELSHI (5) 65 
(3) XUEDXIDJI 
6。(1) (A+B)》/ (Cx#DD) 
(2) 〈90--52#A) /(B+GC/3) 
(3) 3。14159 关 及 关 民 
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汉字 区 位 码 表 
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4 oo 
下 加 醒 而 而 口中 


二 | 


(4) ABC (XxX+Yx<Y) /3/ZA 和 3 

(5) (-B+SQR (BxB-4 关 AxGC)) /(2X%A) 
(-B-SQR (BxB-4xA+C)》 /2 关 A) 

(6) SQR (CSIN (CAF) +SIN (CBT) ) 

(7) (SIN (54 关 3.14159/180) 》 入 2/(COS(36 
X<3。14159/180) +SIN(47 关 3.14159/180) ) 

(8) (2#%SIN(45X#3.14159/180))》 八 4 /EXP(2)V/ 
LOG (5) 

7。(1) AXA+3 共 


(2) 区 -BAd/ (CA+B+C) 


(3) A-B<0 AND NOTa 


(4) 了 - -SING5+6)<2， 0OR C - C05S(25)>= 0 


(5) AS$= THISn ， AND BS$ = atSy JS” + “bm 


(6) (AS = “中国 *OR AS = “中 华 ") AND 
B$ = “北京 


习 蚌 二 
1 。 见 第 一 节 图 2-3。 
见 第 二 节 显 示 器 部 分 和 见 第 三 千 。 
3 。X02003 
4 。XxX02004 或 c02301 
5 。 见 第 五 蔬 直 合式 磁带 机 
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《2 


3。 


见 第 五 节 中 软 矿 盘 驱 动 器 
见 第 四 节 ， 
见 第 五 节 


1) 


《2) 
《3) 
(47 
《5) 
《6) 
《7) 


LET A=5， LE B=3，LET C= 4 
LET Y=3.2，LET X=Y 

LET AS$=“GOOD?",LET B$=“GOOD” 
READ A,B,C,D 

INPUT X,Y,Z 

DATA 4,8, -1.33333,4，- 0.666666 
READ A$,B,C,DS$ 

PATA BOOK,6,68,1987.7.15 


(8》 INEUT “和 Y= 了 5 从 了 


() RUN 
16 
(2) ] RUN 
12312 34012 
3405 67812 
5 RENM X63063 


19 A=2.2: B=4.7 
29 =28(A+B) 
3 SzAbB 

48 PRiINT C,S 
S38 END 


13.8 16.34 


人。 


5 

10 
20 
30 
49 
56 
69 
70 


REN X03604 

Aa16 
BT=3743.14159/130 
B=AsTAN(BT) 

S1=AsB/2 
S2=3.141507142{ASA+BSB) 
PRINT S1,S2 

END 


]RUN 
96,4548089 201.36176 


5 。 参 看 c03402-1 到 c03402-2.c 


习题 四 


1.(1)X 人 5 要 写成 xX 之 = 5 
(2) 变 量 A 应 当 用 字符 串 变 量 AS$ 
(3) 本 行使 程序 处 于 死 循环 
(人 字符 串 常 量 PEN 应 当 加 上 引号 
(5) 语 名 xx = 区 + 工 永 远 不 被 执行 


2。(1)] RUN 


了 
3 
34 


(2) ] RUN 


3.(1) 


5 


X04003-1 

1NPUT “X=”;X 

IF X>5 THEN 5g 
PRINT “Y=”; XSX 
00T0 10 

PRINT “Y=”;XSXSX 
00T0 19 

END 
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X=3 
Ya=s9 
X=5 
Y=25 
X=10 
Y=1066 


(2)》 5 REH X64093-2 
16 INPUT X 
26 。A=Xs3,141597188 
49 YY-(SINCA)+COS(A))/2 
56 00T0 78 
66 Ye(SINCA)-COS(A))72 
76 PRINT “Xe Ya" 刘 
88 END 


]RUN 
?3 
X=30 Y=.683012611 


1RUN 
?-45 
X=-45 Y=-.707106781 


(3) 5 。 REN X94693-3 
1@6 INPUT “X" 3 
26 1F X<@ 0R X>6 THEN 88 
39 IF X>=2 THEN 50 
49 PRINT“Y=";X-4.5: 60T0 89 
5 IF X>=4 THEN 79 
69 PRINT“Y=";EXP(X)+EXP(2sY): 00TO 99 
78 PRINT “Y=” ;XeX-2$X+ 1 
86 END 


1RUN 
X=1 
Y=-3.5 


JRUN 
X=3.5 
Y=1129.74861 


18UN 
X=5 
Y=16 
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5 REN X04004 

16 A=6: B=0: C=f 

26 READ X 

30 IF X=1E9 THEN 36 

40 IF X>9 TREN A=At1: 60T0 20 

50 IF X=9 THEN B=B+1: 00TO 20 

6  C=C+1: 00T0 26 

786 PRINT "(+):" AI” "和 (8) 2 81” “和 
“”(-):”C 

80 DATA 6,2,5,-1,7,0,3,-11,.90,-4.8,5， 
22,0.44,41,-2,3。4，76,1E9 

90 END 


]RUN 
(+):11 (0):2 (=-):4 


5 .上 略 


5 REH X94906 

18 Ka3 

20  N=43K 

38 IF (N-4)/S=INT(N-4)/5 -THEN 50 

489 060T0 80 

58 IF (N-4)/11=INTC(N-4)/IND THEN 70 
68 060T0 86 

76 IF LN-4)/9=INT((N-4)/93) THEN 90 
89 Kz=k+1l: 00T0 26 

96 PRINT “"N="; 


7 。 参 看 c04605.c 
8 .路 
习题 五 


1。(1) ]RUN 
333 
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(2) ] RUN 
-4 一 7? 

(3) ] RUN 
5 7 
I= 7 


2 人) 5 REN X05002-1 
19 S=1: T=1l 
26 JINPUT "AlLQ,Ne ;ALQN 
39 FOR 1=1 TO N-1 
406 TzTsQ 
56 S=S+T 
68 NEXT ! 
76 PRINT “Na="iN, "Se" ;SeA1 
83 END 


]RUN 
Al,Q,N=2,2,16 
N=10 Sz=2040 


]RUN 
Al,Q,N=3,-2,100 
N=100 S=-1,.2676506E+36 


(2) 5 REN X65002-2 
10 1NPUT “F,N=”;F,N 
15 FF=F*3,.141592/186 
26  S=0 
32 FOR 1=1 T0 2sN-1 STEP 2 
40 Sa=S+C0S(IyF) 
56 NEXT 1 
80 PRINT“S=";S 
78 END 


JIRUN 


PR,Na30,126 
S=-2,6124957E-05 
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5 ”REN X65002-3 


(3) 16 【1NPUT 


”Na" 让 


20 E=!i: T=1 
39 FOR K=l1 T0 18 


49 T=T/X 
56  E=E+T 


66 NEXT 


70 PRINT 
80 END 


JRUN 
N=5 
5 


]RUN 
N=16 


JRUN 
N=50 


N,E 


2.71664687 


2.7182818 


2.71828183 


(4) 5 REN X05002-4 


106 INPUT 


20 3S=6 


= 


36 FOR K=1 TO N 
46 S=S+Ks(K+1)+(K+2) 


50 NEXT K 


60 PRINT 
706 END 


]RUN 
N=8 
S(8)=1980 


]RUN 
N=50 


“Si 


S(50)=1756956 
3 .车 取 前 6 项 , 则 其 分 子 为 2 人 2。8: 分 母 为 1。3"57， 


即 


2 
en 


2x1li+2 
2Xx0+LI 


人)=";S 


让 


2Xx2+2 
2Xx2+1 


且 TAR 
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项 数 n= 6， 区 = 旦 - 1 = 2 ， 由 此 可 以 推出 ， 


开 


2 


RON ( ) 
2(k+D+1I i=0\ 2f+1 


5 

10 
20 
30 
40 
50 
60 
70 
80 
90 


REH X05003 

INPUT "和 = 

IF NZ2 “> 1INTIN/2) THEN !10 

K=N/Z2-! 

人 = | 

FOR 1=0 T0 K 
B=({(2zl+2js(2y1+2)/(0(2 宁 1+1) 本 (2 守 1+1)) 
人 = 人 本 

NEXT ! 

Pi=2sA/L(28(A+1)+1l) 


100 PRINT “P=”;pI 
110 00T0 19 


RUN 

N=100 
PI=3.12607891 
N=500 
pP{=3.13845891 
N=1000 
PL=3.140082385 


4。(1) 
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REM X05004-! 
FOR X=1 TI0 8 
PRINT TABCX-1)， 
FOR A=1l T0 8 
PRINT “#”; 
NEXT A 

PRINT 

NEXY X 

END 


(2) 5 REY X65004-2 
10 INPUT “Nz= ”IN: REM 24=Nz7 
20 PRINT TAB(16) 名" 
30 FOR [=1 TON 
48 PRINT TAB(16-2 训 1 ) 和" TAB(16+2 训 | ) 可" 
5G NEXT ! 
60 FOR !-N-1 TO 1 STEP -1 
78 PRINT TAB(16-2$1) 3 和"" ;TAB(16+281) 1 和 
86 NEXT 1 
90 PRINT TAB(16-2s1) ;" 隶 " 
199 END 


5 。 5 REH X95005 
10 FOR A=l JTJ0 6 
20 FOR 8=9 T0 ? 
39 FOR C=<9 T0 9? 
40 IF 1leA+BC>71 THEN 60 
50 PRINT 100sA+193?8+[， 
60 NEXT CBA 


70 END 

1RUN 

650 6451 652 
653 654 8535 
656 657 658 
659 


设 三 位 数字 的 百 位 、 十 位 、 个 位 上 的 数 字 分 别 为 A, B,C 
则 有 :，100A+10B+C-(A+B+C)=639 
99A+9B=639 
心 11A+B=71 
可 见 A 可 能 取 1~ 6 的 整数 ，B、C 则 可 取 0~9 的 整数 。 


6 5 REN X950866 
1@ INPUT “N=" 记 
26 T=9 
36 FOR 1=9 TON 
40 S=9 
50 FOR J=1 T0 3 
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698 Xe=INTC12*RND(1)+1》 
79 IF XK=8 THEN 98 
8386 PRINT “B 

85 0070 118 

986 PRINT “R”， 

108 S=S+1 

11@ NEXT 4 

129 IF S=3 THEN TsT+1 
136 PRINT ” “， 

146 NEX 了 1 

156 PRINT: PRINT 

168 PRINT “Ta “3T，P(R)m “3T3 /SN 3T/ 攻 


179 FND 
JRUN 
Nz=60 
T=19 PF(R)=13/60= .316666647 
RUN 
Ne608 
T=14 pP(R)=:14/6g= ,233333333 
习题 六 
了 5 (1)18 (2) 6 (3)18 
(4)98 (5)18 (6)98 
《7)42 (8)18 (9)18 
2。(1)] RUN 
10 11 12 
13 1 15 
16 17 18 
19 20 21 
22 23 24 
25 26 27 
28 29 30 
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(2)] RUN 


2 1 

4 3 

6 5 
5 REM X06003 
10 READ K 


28 DIM A(N) ,BCN) 

38 FOR Il=1 TO 

48 READ A(1): PRINT AI)3” "; 
56 NEXT 1 

66 PRINT; PRINT 

76 B(I)eA(N) :PRINT B(1)3” “; 
80 FOR J=2 TO N 

98 B(J)=A(J-1): PRINT B(J)3”“; 


100 NEXT J 

116 DATA 2,4,6,8,1,3,5,7 
126 END 

]RUN 

NM=8 

24681335 7 
722468135 


5 REH X60064 

10 INPUIT “N=” 3;N 

20 1H=INT(LOGCN)/XL0O0(10))+1 
30 DIN A(Y): P=N 

40 FOR lzi TO 2 STEP -1! 

58 A(I)=INT(P/10^(I-1)+.05) 
66 P=p-A(1)*l10^ 人 (1-1) 

79 NEXT ! 

80 AI)=INT(P+.05) 

90 PRINT N， 

106 FOR J=1 T0 1 

110 PRINT A(J); 

120 NEXT J 

136 END 


]RUN 


N=1234567893 
123456789 987654321 
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5 ”REH X66685 

10 DIK A(5,5) 

2 FOR i=l T0 5 

36 FOR J=l T0 5 

48 READ A(1,J): PRINT AL JJ) "; 

56 NEXT ]J 

60 pRINT: PRINT 

76 NEXT 1 

86 PRINT: PRINT 

96 FOR !=5 TO 1 STEP -! 

106 FOR Js=1 T0 5 

118 PRINT AC1 JI” “; 

126 NEXT J 

136 PRINT: PRINT 

146 NEXT 1 

159 PRINT; PRINT 

166 FOR In-1 T0 5 

173 FOR J=5 T0 1 STEP -1! 

186 PRINT ACE Ji” “; 

198 NEXT 1J 

268 PRINT: PRINT 

210 NEXT 1 

226 DATA 4,7,6,9,5,7,4,2,1,8,6,2.4,0,3， 
9,1,0,4,2,5,3,3,2,4 

239 END 


7 


5 REN X06007 

19 [LNPUT “N=” 3;N 

28 DIH XCN),YCN) 

36 3S=6 

46 FOR I=i TO KR 

58 READ XC1): YI)=X(I) 
60 S=StX(T) 

65 NBXT | 

76 FOR i=1 TO N-l 

86 FOR J=i+l TO N 
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98 IF XI)>X(J) THEN 110 

108 T=X(T): XCI)=X(J): XOJ)=T 

119 NEXT J 

126 NEXT 【 

139 FOR 1=1 TO N 

140 FOR J=1 TO N 

1506 IF X(1)2Y(J) THEN 176 

160 PRINT 1 NO. J, XI): 60T0 188 
178 NEXT J 

186 NEXT 1 

198 PRINT: PRINT “S/Ne "2SVN 

206 DATA 388 ,92,74,69,91,190,76,83,95,61， 


84,358 
216 END 
]RUN 
N=12 
1 NO0.& 100 
2 N0.9 95 
3 NO0.2 92 
4 N0.5 91 
5 NO0.1 88 
6 NO0,11 84 
了 N0.8 83 
8 N0.7 76 
9 N0.3 了 4 
10 N0.4 69 
11 N0.16 6l 
12 NO0.12 58 
S/N=86.9166667 


5 REH X06008 

19 1NPUT “N=“;N 

26 DIH PCN) 

25 LAPUT “”pP(iD)=";p(1) 

396 FOR 1z2 TO N 

46 PRINT “P( 和: )=”; 

43 INPUT P(I) 

45 IF P(1)>=P(1) THEN 54 
47 A=pP(1): P(L)=pP(I): P(I)=A 
586 NEXT 】 

60 jz=f 


人 


78 J=J+1 

86 FOR Kz2 TO N 

96 0Q=p(1)#J/P(K) 

190 IF QC7>INT(Q) THEN 78 

116 NEXT XY 

128 PRINT #“B(MIN)="; P(1)$J 
136 END 


]RUN 

N=4 

P(I)>=6 
P(2)=?12 
P(3)=248 
P(4)=?9568 
BIN)=29040 


989。BASIC 的 标准 函数 中 有 arctgx, 所 以 必须 把 arcsinx 
与 arccosX 先 用 arctgx 表 示 。 
由 反 三 角 国 数 意 义 可 知 ， 


arcsinX=arctg 入 

AI 一 和 2 
开 二 妈 

arccoOsX =arctg 3 


5 RENM X06089 
18 DEF FNQ(X)=COS(ATN(X/SQR(1-XsX))) 
26 DEF FNR(X)=SINCATN(SQR(1-XeX)/X))》 
30 FOR Xz6.1 T0 1 STEP 0.1 

49 PRINT “X=";X，"Y=";FNQCX)+FNR(X) 


50 NEXT X 
60 END 
]RUN 
X= ,1 Y=1,98997488 
X= ,2 Y=1.95959179 
X= .3 Y=1.9078784 
X= .4 Y=1.83363028 
=.5 Y=1.73205081 
Xs .Oo Y=1.6 
=。 了 7 Ya1.42828569 
X=,8 Y=1.2 
Xm ,9 Y=.871779787 


10 。 


习题 七 
1。 
2。 


5 REN X866616 

16 PRINT "(1) Y=XA2 . (2) X=YA2” 
20 1NPUT “N=”;N 

36 H=!/N: Sz0 

46 FOR izl TON 

56 Az(1-1)?H: BasisSH 

60 Di=SQR(A)-AsA: D2=SQR(8)~848 
76 T=(D1+D1)s?H/2 

80 S=S+T 

906 NEXT ! 

1270 PRINT “SC(" ;Ni )s”;S 

1!19 1JNPUT "00 ON? (1 0R 8 ?) ;由 
120 IF el THEN 30 

139 END 


]RUN 

(1) Y=X^A2 《2) X=Y^A2 
N=50 

S(50)=.332695342 

00 0N?.(1 08R 0 ?)1 

N=300 

3(366)=.3332921937 

00 0N? (1 0R 6 ?)0 


见 第 二 节 
(1)] RUN 
12345 


(2) 1 RUN 
9 


5 REN X67063 

10 FOR Il=1 7T0 3 

29 A=INT(RND(1)#106) 
38 B=INTCRND(1)2100) 
46 C=1NTCRND(1)z100) 
56 003U8B 108 

60 00SUB 306 
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76 END 

1898 PRINT “A=”;A 

110 PRINT “B=”3;B 

120 PRINT “8= "3C 

139 RETURY 

280 IF A>B THEN 240 
210 IF BC THEN 279 
228 PRINT “MAX 1S “3C 
230 RETURN 

240 IF AKC THEN 228 
259 PRINT “MAX JS “3?A 
260 RETURN 

279 PRINT “MAX JS “3B 
280 RETURN 


]RUN 
A=98 
B=78 
C=40 
MAX 135 38 


RUN 
&A=16 
8B=50 
C=40 
MAX IS 50 


JRUX 
Az28 
B=16 
C=43 
HAX 1S 43 


5 REH X07094 

10 READ R1,R2 

29 00SUB 60 

36 READ R1,R2 

40 00SU8 6 

50 END 

69 PRINT “R1,R2= ;Ri ;5R2， 
76 Sz=3.14159s(RI*RI-6sR2sR2) 
806 PRINR ” Ss ;9 

98 RETURN 

108 DATA 24,2，3.8,64.7,18.4 


RUN 


Ri,R2=-24.2,3.8 Sz=1567.65341 
8l,R2<64.7,10.4 Sasllil12.2122 


5 REH X97005 

16 C=3.14159/109 

26  X=453$C: Y=50sC: Z=90$C 
38 PI=X: P2=Y: PJ=2Z 

49 00SUB 206 

56 3S=Q 

69 P1=Y: P2=Z:; P3=X 

76 060SU8 200 

39 S=9+0 

90 PilzZ: P2=X; Pp3zY 

106 60SUB 206 

110 Sz=5t+Q 

120 PRINT “=”;54S 

130 END 

289 Q=SIN(P1)/SIN{(P1-P2)*S1IN(P1-P3) 
210 RETURN 


]RUN 
=-1.19209E-06 

习题 九 

1 。 用 GR 诸 名 可 以 进入 低 分 辨 混合 方式， 用 吾 GR 或 
HGR2 可 以 进入 高 分 辩 混 合 方式 。 当 处 于 图 形 方 式 时 ， 用 
POIKE-16301，0 也 届 进 入 混合 方式 。 当 处 于 混合 方式 时 ， 
用 POKE-16302，0 可 进入 图 形 方式 。 用 TEXT 语 名 或 用 
Ctrl+RESETT 键 可 以 从 混合 方式 或 者 图 形 方式 下 返回 文本 
方式 。POIKE-16303， 0 也 可 以 返回 到 文本 方式 。 

2 。GR 进 入 低 分 辨 混合 方式 

COLOR =n 置 低 分 辩 率 图 形 戎 色 

SORN (Cx，7y) 返回 低 分 辩 率 图 形 方 式 下 (x，y) 点 的 
颜色 值 
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PLOT 低 分 辩 率 绘图 画 点 语句 
HLIN 低 分 辩 率 绘图 画 水 平 线 语句 
YLIN 低 分 辩 率 绘图 画 垂直 线 语句 


3。5 
10 
320 

100 
110 
120 
130 
140 
200 
350 
330 
328 
330 
340 
400 
405 
410 
50n 
510 
520 
530 
540 
600 
700 
?710 
720 
730 
740 
800 
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REM X0902 
GR 


COLOR 一 4 

J=19 

FOR I= 一 9 TO 19 

PLOT J 了 ,， 

J 一 J 一 工 

NEXT 

HELIN J， 35 ATI 

J=:34 

FOR I=19 TO S STEP 一 1 
PLOT JJ， 工 

了 一 丁 一 

NE 和 T 

VLIN 1I，23 AT 了 

IT=23 

HLIN J 十 芋 ，36 AT 工 工 
J 一 37 

FOR I=23 TO 29 

PLOT J，I 

J= 一 J 一 工 

NE 交工 

HLIN J， 9 ATI 

J= 一 8 

FOR I=20 TO 23 STEP 一 1 
PLOT J 工 

了 一 了 一 工 

NEXT 

HLIN J+1，19 AT I+1 


4。HGR 和 HGR2 进入 高 分 辩 率 混合 方 式 的 第 一 页 
或 第 二 页 。 

HCOLOR =n 置 高 分 辩 率 图 形 的 颜色 。 

HPLOT 在 高 分 辨 图 形 方式 下 绘图 。 

5。 画 国旗 程序 : 


5 REM X0904 

10 HGR : POKE 一 16302，0 

20 HCOLOR=5 

30 HPLOT 30，10 TO 229，10 TO 229，1 
30 TO 35，130 TO 35，10 

40 HPLOT 35，130 TO 35，155 TO 31，1 
55 TO 31，10 

5S0 HPLOT 51，49 TO 63，49 TO 69，41 TO 
75，49 TO 87，49 TO 77，55 TO 85， 
63 TO 69，58 TO 53，63 TO 61，? 
5 TO 51，49 

00 FOR K=1 TO 4: READ I，J 

70 HPLOT TI JTOI+6:JTOI+8， 
J 一 4TO I+10，J TO I 十 16，J 
TO I+11，J 二 3 TO I+15，J 十 
6 TO I+8，J+4 TO I+ 1T，J 十 
6 TO I+5，J+3 TOTL J 

80 NEXT 

90 DATA 82，34，94，46，94，58，82，7 


画 帆 船 程序 : 
5 及 EM 基 0902 
10 HGR : HCOLOR= 3 
20 HPLOT 140，50 TO 100，90 TO 200， 
90 TO 140，30 TO 140，100 TO 22 
0，100 TO 1955，125 TO 105，125 TO 
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80，100 TO 140，100 
6。(1) 建 立 向 量 表 ( 包 括 索 引 表 ) 

(2) 将 向 量 表 装 入 内 存 指定 单元 中 

(3) 将 向 量 表 在 内 存 中 的 首 地 址 放 入 王 8 和 了 上 9 内 存单 


元 中 。 
(4) 在 高 分 辩 率 绘图 方式 下 ， 用 绘图 语 名 (DRAW) 
绘制 图 形 。 
画 六 边 形 程序 ， 


REM X0901 
10 DATA 1，0，4，0 
20 DATA 45，45，45，45，0 
30 FOR I=7676 TO 7684 
40 READ XXX 
50 POKE I，X 
60 NEXT 
70 POKE 232，252:POKE 233，29 
75 HOME : HGR 
76 了 COLOR=3 
78 HPLOT 130，80 
80 ROTm0 :SCATLE= 3 
00 FOR I=1 TO 6 
95 TFI= 2 THEN DRAW 1: ROT=11 
.3#I: GOTO 110 
96 IF I=4 THEN DRAW 1: ROT=10 
.3#I: GOTO 110 
100 DRAW 1: ROT=10.99X#% 了 
110 NEXT 
120 END 
画 五 角 星 程序 ， 
5 REM X0906 
10 DATA 1，0，4:， 80 
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20 DATA 45，45，45，45，45，45，45，45，45，0 
30 “FOR I= 一 7676 TO 7689 

40 READ X 

50  POKE I，X 

60 NEEXT 

70  POKE 232、252:POKE 233. 29 
75 “HOME: HGR 

76 ”HCOLOR= 3 

78 HPLOT 70，80 

80  ROT= 0: SCALE=6.5 

30 FORI=1l1 TO5 

100 DRAW 1: ROT=25.8 # 1 
110 NEXT 

120 END 


1。10~40 语 句 是 乐曲 的 音调 所 对 应 的 数据 。 
42 语 句 是 使 程序 结束 的 数据 。 
80 语 句 是 每 次 读 一 个 音调 的 音阶 和 音 长 。 
55 语 句 是 当 乐 曲 的 数据 读 完 后 ， 结 束 程 序 。 
56 语 句 是 在 屏幕 上 随机 输出 一 些 字 符 。 
60 语 句 是 定 郸 语句, 重复 执行 这 个 语句 ， 可 以 演奏 乐曲 。 
80 语 句 是 转 去 重复 发 音 和 输出 字符 的 过 程 。 
这 个 程序 可 以 一 边 演奏 “送别 ”的 乐曲 一 边 随机 输出 一 
些 随机 产生 的 字符 。 
3。(1) 输入 机 器 语言 发 声 子 程序 ， 或 将 已 存在 的 发 声 
子 程序 装 入 内 存 ( 原 子 程序 放 入 $0302 单 元 ) 
(2) 将 发 音频 率 值 放 入 $301 单 元 ， 持 续 时 间 放 入 $ 
300 单 元 。 
(3) 用 CALEL 命 令 调 $0302 单 元 开始 的 发 音 子 程序 
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第 2 步 和 第 3 步 可 用 下 面 命令 来 实现 。 

POKE 768,D 

POKE 769,F 

CALL 770 
习题 十 一 

1。 用 CALL 命 令 调 机 器 语言 子 程序 首 地 址 即 可 。 

例 ， 调 清 屏 子 程序 (地 址 为 -936) 。 

CALL -936 

2。POKE 语 句 是 往 内 存单 元 中 送 数 据 。 一 般 通过 往 某 
些 特 定 的 内 存单 元 送 数 据 可 以 实现 一 些 功 能 。 

PEEK 函数 是 读 指定 内 存单 元 的 值 。 

例 ，POKE -16304，0 进入 图 形 方 式 

POKE 769,52 往 769 单 元 送 数据 (52) 
PEEK 〈222) 看 错误 类 型 222 单元 中 存放 错误 类 
型 ) 。 

3。 用 PRINT PEEK (106) #256 + PEEK 〈105) 
看 BASIC 工 作 区 下 限 。 

用 PRINT PEEK(J16)#<256+PEEK(115) 看 BASIC 
工作 区 上 限 。 

用 HIMEM， 可 以 设置 BASIC 工 作 区 上 限 , 用 LOMEM， 
设置 BASIC 工 作 区 下 限 。 设 置 BASIC 工 作 区 的 上 .下 限 主 要 
是 防止 BASIC 的 数据 破坏 图 形 区 或 机 器 语言 子 程序 。 

4。SPEPEPD 语 句 作 用 可 以 改变 计算 机 与 设备 之 间 的 传 
适 字符 的 速度 。 例 如 SPEED = 50， 您 再 要 在 屏 幕 上 显示 字 
符 ， 就 会 明显 感到 特别 慢 ， 如 果 SPEED = 255， 则 显示 速度 
比较 快 。 
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习题 十 二 

1。 在 BASIC 程 序 中 使 用 DOS 命令 可 用 下 面 语 名 格式。 

PRINT CHRS$ (4) ; “DOS 命 令 和 参数 ? 

在 这 个 语句 中 必须 用 CHRS$ (4) 开始 ,以 回 车 符 结 束 。 

2。 (1)、(3)、《4)、(5) 中 的 DOS 命令 能 被 执行 ， 因 
为 CHRS$(4) 是 PRINT 语 名 的 第 一 个 输出 符 。 

(2) 中 的 DOS 命 令 不 能 被 执行 , 因为 CHRS$ (4) 在 
语句 中 〈 包 括 上 个 语句 ) 不 是 第 一 个 输出 符 。 
习题 十 三 

1.。 顺序 文件 是 一 种 数据 文件 ， 它 由 若干 数据 域 〈 项 ) 
组 成 ， 而 每 个 数据 域 由 若干 字符 组 成 并 用 回 车 键 结束 。 存 或 
取 这 些 数 据 是 按 顺 序 进行 的 ， 一 般 ， 对 这 种 文件 的 存 取 是 这 
样 的， 您 若 想 存 取 某 一 个 数据 ， 您 需要 先 存 取 它 前 面 的 所 有 
数据 。 如 您 要 想 取 第 10 个 数据 ， 应 先 取 前 9 个 数据 后 才能 取 
第 10 个 数据 。 

2。 随 机 文件 是 由 记录 组 成 的 ， 每 个 记录 可 有 若干 个 数 
据 域 (项 ) ， 并 且 所 有 记录 长 产 都 一 样 对 随机 文件 读 写 时 ， 
可 以 随意 直接 读 某 一 条 记录 ， 只 要 指明 记录 号 即 可 。 

3。 可 以 。 用 POSITION 命令 可 以 将 指针 向 前 移动 车 
干 数据 项 而 定位 于 其 一 个 数据 项 上 。 用 APPEND 命 令 可 以 
将 指针 移 到 文件 尾 。 

4。 一 定 要 关闭 。 结 果 不 关 闭 这 些 数据 文件 ， 往 往 会 破 
坏 磁 盘 上 的 数据 或 丢失 数据 。 

5。 在 程序 中 增加 一 个 INPUT 语 名 ， 要 您 通过 键 盘 输 
入 文件 各 给 一 个 变量 〈 很 设 为 NAMES$) 。 并 将 程 序 中 所 有 
SJ:L20 文 件 用 NAMES$ 取 代 即 可 。 详 见 改 后 的 程序 。 
习题 十 四 


343 


1.(1) 将 “CHAIN ”机 器 语言 程序 装 人 内 存 指定 单元 
中 ， 如 20 PRINT CHRS$ (4) ， “BLOAD CHAILN， 
人 52027 ; 
(2》 用 CALL 语句 亩 机 器 语言 链接 程序 并 给 出 要 链 
接 的 程序 名 ， 如 30 CATLEL 520 “sc09405? 。 
2。 赂 
3。 了 略 
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